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De clubwinkel: 

80-koloms videokaart 

Geheugenkaart 16 kByte , exclusief onderdelen 
(NEE, die fl. 1,-- is geen TYPfout!!!) 
Schakelkaart: deze ís uitverkocht 
Minischakelkaart: ook deze kaart is uitverkocht 
Combikaart: Ze SPS Print-Service 

Z-80 kaart voor CP/M ‚exclusief onderdelen 
ACORN NIEUWS 1982 , 97 pagina's samenvatting 
ATOM NIEUWS jaargang 1983, ruim 450 pagina's 
ATOM NIEUWS jaargang 1984, ruim 650 pagina's 
ATOM NIEUWS jaargang 1985, ruim 650 pagina's 
ATOM NIEUWS Jaargang 1986, ruim 500 pagina's 
ATOM NIEUWS Jaargang 1987, ruim 300 pagina's 


ATOM-WARE 1 : ATOM Basic interpreter , 98 pagina's 
ATOM-WARE 2 : ATOM Disc Operating System , 68 pagina's 
ATOM-WARE 3 : ATOM Monitor Operating System , 80 pagina's 
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LEVERING geschiedt via uw regionale penningmeester , of rechtstreeks 
via de federatieve penningmeester . Bij rechtstreekse bestelling 
stort u het bedrag van het gewenste artikel vermeerderd met 
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Uit de federatie 

Inhoudsopgave 
Regiomededelingen/redactioneel nieuws 
Regioschijven 1 en 1990 

Jaaroveracht 1988-1989 

Electron Nieuws R Leurs E 
De (nieuwe) CPU kaart 3 
Programmeercursus GAGSROM R 
Mijn Atom en ik P 
Locktoets indicator Ss 
Donald in naboko R 
Redaktionele oproep 
Computermagazines opradio en tv 
Acorn Atom muis 

Speech en Assembler 

Toolbox Loader 

Vrijdag de 13de 

Uit de oude doos 

Cylon Attack 

" DISK “ voor GDOS 

Atom markt 

Printservice 

Info Atom Landdag 

Regionale adressen 


US HRDA 





Hounjet 
Feron 
Leurs 
Voorloop 
Geene 
Leurs 


van Oss 
Leurs 
van Oss 
Leurs 


Protzman 
Protzman 


ATOM NIEUWS is een uitgave van de federatie Atom computerclub 
Ned/Belgie en verschijnt 4 keer per jaar. 
De redactie gaat er vanuit dat de ingezonden copy gemaakt is door 
de inzender tenzij in de publikatie uitdrukkelijk anders is 
vermeld. De aansprakelijkheid echter betreffende de auteursrech- 
ten ligt zonder enig voorbehoud volledig bij de inzender. 


LA. 3 ATOM NIEUWS __________ REGIOMEDEDEL INGEN/REDACTIONEEL NIEUWS 


1. 


REGIO-MEDEDEL INGEN, 


REGIO DEN HAAG. 

De datum van de regio-bijeenkomst in November a.s. in de laatste 
regiomededelingen verkeerd weergegeven. 

Dit moet zijn 2 November ( i.p.v. 3 Nov.) … 


REGIO LIMBURG-BELGIE 

Zoals ook reeds per afzonderlijk schrijven werd medegedeeld, 
zijn de regioavonden voortaan in ”DOS-KAAR" in Sittard, 

adres Geldersestraat 43,tel 44498-21378, 

Men neme Rijksweg-Noord, ca. 12@m. voor de Phílips-vestiging 

tis aan de rechter zijde een groene telefooncel ‚daar rechts-af, 
dan 2e straat aan de rechterzijde. 

Data : 2 Mrt., & Apr., 4 Mei , 1 Juni, 6 Juli. 

Diverse demo’s in een verbeterde uitvoering staan op stapel. 
April 1 koppeling ATOM-IBM ; Mei : D/A toepassingen 





REDACTIONEEL NIEUWS 





Het redactioneel nieuws van deze aflevering is uitsluitend 
in mineur. 

Op de eerste plaats heeft Nico Schreurs zijn deelname aan 
het redactioneel gebeuren beeindigd, deels als gevolg van 
steeds toenemende drukte in zijn professionele sfeer. 
Gegeven de inmiddels vele jaren en vele uren die hij eraan 
gespendeerd heeft, past een woord van oprechte dank. 


Voor. het eerst in vele jaren zakken we met ATOM-NIEUWS naar 

een omvang ‚zoals leden uit de beginjaren zich nog zuilen 
herinneren; helaas , een direct gevolg van de afnemende 
productiviteit, danwel verschuiving van de aandacht naar andere 
computers, danwel andere hobby's. 


AEUM NIEUWS RESTOSCHIJVEN 
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orogram 





CODEFON 
EPU-35.4 
CYLON. n 
CYLON.o 
DISK. v3 
EPRPROG 
FONCODE 
GAGS2,0 
GAGS2. 5 
GOEMO1 
GDEMO2 
GDEMOS 
ORGEL 
PRGTEST 
STARS.a 
STARS.a 
VOGEL 
VRIJ. 13 
AEE-3.0 
ASE-2,0 
EDMBOX 
DBOX-V1 
DISATOM 
ED-54B 
EDBO, v4 
EDIBUG 
GAGS2.3 
JBOX 
JOSBOX 
PCHARM 
SALF2.5 
SALF2.6 
TBL,DAT 
TBL .SCH 
TBL1LDR 
TBL2LDR 
TELEC 
TOOLKIT 
WEBOX 
WORDPACK 








2700-3DEO 
2900-SFFF 
9300-9FEF 
4000-4084 
2900-5320 
AOOO-AFFEF 
AODO-AFFF 
2900-29DC 
2900-2C60 
2900-32F7 
29090-2BBB 
4000-4A1C 
4009-4EGB 
4000-4E6B 
2990-2B4E 
2909-2071 
2000-4000 
3000-4000 
4009-5000 
AOOO-AFFE 
2000-B000 
3000-4000 
4090-5006 
6000-7000 
4000-5000 
AOOO-AFFE 
A00G-BOOO 
AOOO-AFEF 
3000-4000 
AOOO-BOOO 
4000-4500 
8060-9800 
2900-5695 
2900-5718 
3000-4000 
4000-5000 
3600-4000 
6000-7000 








P-CHARME 








GAGSROM 
GAGSROM 
GAGSROM 
P-CHARME 























SPEECH 
HARDWARE 
SPEL 
SPEL 
UTILITY 
HARDWARE 
SPEECH 
UTILITY 
UTILITY 
DEMO 
DEMO 
GAGSDEMD 
MUZIEK 
HARDWARE 
SPEL 
SPEL 
DEMO 
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artike 


AN. 0-1 
AN, 9-1 
AN, 9-1 
AN. 9-1 
AN.9- 
AN. 9-1 
AN. 9-1 
AN, 9-1 
AN 9-1 
AN. 9-1 
AN. 2-1 
AN G-1 
AN, P-1 
AN. P-1 
AN. 9-1 
AN, 9-1 
AN, 9-1 


BEREKENENAN. 9-1 


TOOLBOX 
TOOLBOX 
TOOLBDX 
TOOLBOX 
TOOLBOX 
TOOLBOX 
TOOL BOX 
TOOLBOX 
TCOLBOX 
TOOLBOX 
TOOL BOX 
TOOLBOX 
TOOLBDX 
TOOL BOX 
UTILITY 
UTILITY 
UTILITY 
UTILITY 
TOOLBOX 
TOOL BOX 
TOOL BOX 
TOOLBOX 




















EPU-KAART 
HET NIEUWE 
ORIGINEEL V, CYLON 

5:DOS ECPIEER UTILITY 
PROGRAMMER V, ELECTRON 
VDOR SPL 256 

QUDERE VERSIE V.D.GAGSROM 
NIEUWE GAGSROM 

DEMO V. GAGSROM 

DEMO Vv. GAGSROM 

DEMO VOOR GAGSROM 

ATOM ALS ORGELTJE 
TESTPROGRAMMA Vv. EPRPROG 
HULFFILE V, CYLON 
UITBREIDING T,B.V, CYLON 





„FLUITEND VOGELTJE 


VRIJDAG DE DERTIENDE 
TCO BOXEN 

TOOL BOXEN 
TODLBOXEN 
TOOLBOXEN 
TOOLBOXEN 

TOOL BOXEN 
TODLBOXEN 
TOOLBOXEN 

TOOL BOXEN 

TOOL BOXEN 
TODLBOXEN 

TOOL BOXEN 

TOOL BOXEN 

TOOL BOXEN 
DATA-BESTAND TBL:LDR 
SCHERM V. TBLILDR 
LADER V. TOOLBDXEN 
LADER Vv. TOOLBOXEN 
TOOL BOXEN 
TOOLBOXEN 

TOOLBOX V. W.ERNST 
TOOL BOXEN 


rar 


952 


968 


908 
917 
1818 


1403 
951 
1889 
1376 
hihd 
912 
943 
956 
957 
992 
1831 
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Jaargang 7 
= 





Artikel 


ELECTRON/ ATOM 
COMMUNIC. VERB. ANS-6- 105 
PROGRAMMA "KLOK" GEREPAREERD 
EDIT-88 UITGEBREID 
TIME-BOX,REAL-TIME KLOK 
RECTIF IC. AN-3-6, VERBORGEN 6582 
Cc. 

PADD ING, BEREKENEN 

CONDENSAT ‚RADIO 
PC-ATOM-KOPPEL.EN RTTY 

RTTY TX/RX V2.0 VAN PASELB 
DISYC,DISASSEMBLER-PROGR. 
BASICDDE DIRECT NAAR DISK 
SGUENIS,SPELLETJE 
ATOM-BASIC-CONDENSOR 

KAS-BOEK (ADMINISTR. > 

HERBOUW VAN DE ATOM 
HARDWARE - TRACER 

WORTEL TREKKEN EN SPACE -REMOVE 
DIGITIZERITUS 

RECT . PADDING AN-8-2 

B-KANAALS VOORZET v.ATOM 

INFO NIEUW COMPUTERBLAD 
DICETTEHOESJES PRINTEN 
ATOMSMURF 

BBC-BASIC EN COMBIKAART 
88-KOL., SOFT EN 8@-KOL 
TEKSTVERWERK 

VIDEODAT (WDR)PROGR.VIA DE TV. 
ALLCOS ( 1288-BAUD CASSETTE) 
BIG BENNY ONDER INTERRUPT 
BIG-BENNY ONDER INTERRUPT 
BOOTSTRAP EN BOOTUP 

BOOTSTRAP EN 
BOOTUP , VERB. AN7 1-65 

ATOM EXTENSIONBOX V‚2.8 HANDL. 
SCREENROM OP #7088 HANL . 

VAN RX NAAR TX-BOX 
PRINTERCODES 

TABEL MAKEN v.P-CHARME (VERB.) 
TAPE-INDEX OP MAAT GEPRINT 
ATOM ALS CASSETTE-VERSTERKER 
TRUUK ‚„LAAD/SAVE PROBL OPLOSSEN 
VERBETERINGEN CP/M TERMINAL 
BEGINNERSLOGE BASIC (1) 
BEGINNERSLOGE BASIC Dt2 
ADRESSEREN EN DECODEREN 
BEGINNERSLOGE BASIC (5) 
BEGINNERSLOGE BASIC (4) 
BEGINNERSLOGE BASIC <5) 


&a 


mezen: 


JR. 


OOND 0 
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IND NN N 


DN 


DONNE NN DN 0D 
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me BBEUUUUUNNNNNN 
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ee 
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1989 


muneesenn 


SQORT 


ALGEMEEN 


ALGEMEEN 
ALGEMEEN 
ALGEMEEN 
ALGEMEEN 


ALGEMEEN 


ALBEMEEN 
ALGEMEEN 
ALGEMEEN 
ALGEMEEN 
ALGEMEEN 
ALGEMEEN 
ALGEMEEN 
ALGEMEEN 
ALGEMEEN 
ALGEMEEN 
ALGEMEEN 
ALGEMEEN 
ALGEMEEN 
ALGEMEEN 
ALGEMEEN 
ALGEMEEN 
BBC-BASIC 
BESCHRIJVING 


BESCHRIJVING 
BESCHRIJVING 
BIG-BENNY 
BIG-BENNY 
BOOTSTRAP 
BOOTSTRAP 


BOXEN 
BOXEN 
BOXEN 


BOXEN 
EOS 
COS 
COS 
CP/M 
CURSUS 
EURSUS 
CURSUS 
CURSUS 
CURSUS 
CURSUS 


ARCH. 
CODE 


294 


590 
414 


320 


571 


194 
571 
320 
279 
571 
430 
540 
121 
129 
568 
182 
570 
570 
590 
548 
429 
126 
251 


188 
262 


288 
229 
129 


311 
259 
240 


312 
590 
199 
269 
127 
310 
518 
450 
318 
38 
518 
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rn 


1401 
1450 
1575 
58 
1402 
1415 
927 
948 
958 
9,80 


1035 
1595 
1487 
1411 


1416 


1424 
1545 
1555 
13562 
1566 
1352 
1549 
1580 
973 
926 
955 
967 
70 
997 
1826 
1929 
13561 
1382 
FIL 
922 


954 


953 
956 
1418 
1422 
950 
9356 
937 
949 
95e 
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Artikel 


BEGINNERSLOGE BASIC (6) 
BEGINNERSLOGE BASIC DL7 
CURSUS TEKSTVERWERKING 

DBASE 5.02 ‚HANDL. 

SCOURCE v.DBS,DATABASE 
INFOMASTER LABEL ,PIJLBESTURING 
GCAT GDOS-DATABASE V, DISKS 
MODIFICATIE GEAT AN7-1-62 
VERBETERING DOS-CONTROLLER 
GDUMP, PRINTEN PLAATJES OP 
GEMIMI1BX 

DISKCAT VOOR CP/M OP ATOMDOS 
AANSLUITGEG. HARD-DISK 

DISKCAT v.GDO0S OP ZBSSYST. 
KIES UIT DIRECTORY MET 
JOYSTICK 

FILE-CONVERS, 

ATOMDOS-GDOS (VERB. ) 
GDOS-UTILIT,ERASE EN MENU 
RANDOM ACCES FILES 

AUTOMAT 1C-FORMAT PROGRAM 
UITBREIDING BGCAT 

PUNCHER,CP/M FILES IN ATOM 
AANPASSING ADOS > GDOS 
ELECTRON-NIEUWS 

VIAPRINT VOOR ELECTRON 
ATOM-EPROMPROGRAMMER SCHEMA 
KAART TRUCJE 

DYNAMITE (REACT IESPEL) INFO 
SPIDER EN WOODLAND 
STAATSLOTERIJ 

NAVIGATOR (ZEER SNEL SPEL) 
DUCK ,EEN SPEL 

GOKKAST ZONDER BOXEN HANDL . 
GEDACHTENLEZEN (SPEL) 

SPIDERS WEB 

INZOO, VERGROTEN, DEEL BEELD 
BRESSENHAM-ALGORI TME (CIRKEL -TE 
KENEN) 

KRIMP (VERKLEINEN V. 
TEKENENING. » 

ERVARINGEN MET DE DIGITIZER 
VOORPLAAT EN LONGL INE 

KAARS ,GRAF ISCH DEMO 

GRAPHIC DUMP OKI-MICROLINE 84 
BACKPANEL AAN DE ATOM 

RESET -GENERATOR/BATTERY-BACKUP 
FLIP-FLOP,BIT-TOESTAND-TESTER 
SCHEMA VIAKAARTJE AN7-1 BLZ. 20 
BRAIN TRANSPLANT 

SPK -CMOS#D-7FEFF 


JR. 


SNN NIOO NOW WO 


0 DoNO 


IND BDNNNNN DOO 0 O0 0 


Nt 


NSE NN OD NY 


NR. 


WUNENNNB UN 
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PAG. 
1988-1989 

blz. SOORT ARCH. 
CODE 

15 CURSUS 318 
& CURSUS 318 
39 CURSUS 414 
9 DATABASE 412 
22 DATABASE 412 
A9 DATABASES 412 
&2 DOS 412 
St DOS 412 
17 DOS 171 
53 DOS 450 
78 DOS 450 
43 DOS 279 
38 DOS 279 
3B DOS 279 
49 DOS 279 
66 DOS 273 
36 DOS 279 
75 DOS 271 
18 DOS 279 
28 DOS 370 
&8 DOS 275 
52 ELECTRON 128 
&5 ELECTRON 128 
44 EPROM 193 
68 GAMES 521 
72 GAMES 521 
57 GAMES 512 
26 GAMES 590 
43 GAMES 521 
47 GAMES 521 
53 GAMES 521 
16 GAMES 521 
65 GAMES 521 
24 GRAPHICS 429 
55 GRAPHICS 560 
72 GRAPHICS 429 
&5 GRAPHICS 182 
75 GRAPHICS 429 
50 GRAPHICS 421 
61 GRAPHICS 450 
&& HARDWARE 124 
75 HARDWARE 121 
77 HARDWARE 199 
53 HARDWARE 180 
29 HARDWARE 120 
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965 


978 
87 


995 
996 


1081 
1227 
1913 
1828 

964 


909 
942 
962 
981 
1823 
1833 
1034 
1409 
568 
J61 
979 
999 
1419 
1427 
1346 
1347 
See 
1824 
982 


G19 
941 
1832 
1413 
1429 
1032 


988 
…45 
1396 
1384 
920 
946 


984 
1358 


Jaargang 7 & 8 


Artikel 


EPROM OP #1900 ZONDER 
SCHAKELKAART 

DE EF 9545 BEKEKEN 

HET MYSTERIE VAN DE LANGE 
KABELS 

HET OBLOMOV-PRINCIPE 

RECT IF. BRAINTRANSPLANT 
AN7-3-28 

AANSLUITINGEN EPROMS/RAM'S 
EENVOUDIGE WRITE-PROTECT 
RAM-ROM SWITCH 

OMSCHAKELEN ATOM-MOS--BBC-MOS 
MENU ‚UPDATE , INIT ,COPIAS , DATABA 
SE , HANDL . 

VIAKAART OP #BC@D +EPROM &RAM 
SERIELE INTERFACE (R5252) 

DE B-POORT VAN DE VIA GEBRUIKT 
MINI-RS232 

RS-232-. /PARALLELKAART , INFO 
RS-COM RS5232 KAART MET BESCHR. 
AUTOTRANSMIT VOOR DE RS-COM 
JOYSTICK AAN DE ELECTRON 
MDCR-SOFTV.80 KOL. KAART 
MDCR-COMMANDO'S JGSVS9 
MDCR-CATALOG DATABASE 

GEEN TURBO OP MDCR 
MODEM-BESTURINGPROGR. 

LISTER VAN ATOMTEL-LISTINGS 
NIEUWE VERSIE RSCOM:&X 
UITBREIDINGEN RSCOM6& 

EDOS (VERVOLG) AN7-3-62, INFO 
EDUS-6DDS-AANPASS. AN7-4-12 
EDOS,UNIVERSEEL OPERATING 
SYST. 

Bste PRINTERBIT 

NLO-PRINTEN ‚INFO 

SCREENCOPY PRINTERDUMP 
PROBLEMEN MET AUTO-L INEFEED 
8e PRINTERBIT TOCH ANDERS 
EDIT8® VOOR 

TXP-1B0BPRINT. ,HANDL . 

DE 6502 HEEFT EEN VRINDJE 6809 
MTV3 MINITEKSTVERWERKER , HANDL 
MACRO-ASSEMBLER , HANDL 
AANVULL/RECT TVmuS@ 

EXTRA RAM VAN #400 TOT #800 
RECTIFICATIE EXTRA-RAM AN 
7-1-52 

RAM OP Cxxx,‚Daxx, Enxx,Fuxx 
AANSLUITINGEN 2114'S 


JR. 


NN ON 


DD DO NVN NONOODONINNODDHN NN TD NN 5 


NINE NN N 


Dt 





NR. 


ä 
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We BUUWNNBUUUNE eme UN Ee Webb 
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kl 


blz. 


SOOR 


HARD 


HARD 
HARD 


HARDI 
HARDI 


HARD 





T 


WARE 


WARE 
WARE 


WARE 
WARE 


WARE 


HARDWARE 


HARD 
HARD, 
HUIS 


1/0 
1/0 
1/0 
1/0 
1/0 
1/0 
1/0 
Joys 
MDCR 
MDCR 
MDCR 
MDCR 
MODE 
MODE 
MODE 
MODE/ 


OPERATING SYST. 
OPERAT . SYSTEM 


oP.s 


WARE 
WARE 
HOUD . 


POORTEN 
POORTEN 
POORTEN 
POORTEN 
POORTEN 
POORTEN 
POORTEN 
TICK 


M 
Mm 
M 
M 


YSTEM 


PRINTER 
PRINTER 


PRIN 
PRIN 
PRIN 
PRIN 


PROC 
PROG, 
PROG 
PROG 
RAM 
RAM 


RAM 
RAM 


TER 
TER 
TER 
TERSOFT 


ESSOR 
RAM 
RAM 
RAM 


ARCH. 
CODE 


1553 


159 
123 


121 
120 


139 
129 
12& 
412 


188 
188 
189 
188 
148 
188 
2858 
128 
zel 
2e1 
412 
sen 
281 
281 
281 
281 
22i 
222 
221 


148 
249 


241 
241 
414 


127 
414 
320 
414 
130 
132 


138 
118 
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rar Artikel JR. NR. blz. SOORT ARCH, 
CODE 
918 RECTIF.2764/27128 OP 7 1 49 SCHAKELKAART 150 


SCHAKELK . AN6 6-59 


935 STEREO 1888 (2 # BLOK #1020) 7 1 735 SCHAKELKAART 150 
921 WIJZIGING COMBIKAART 7 D 53 SCHAKELK/RAMK . 122 
1429 LINEAIRE NETWERK 8 2 52 SIMULATIE 570 


ANAN, LINEAN-VZ. 5 
1365 AIRBUS VLIEGSIMULATIE 
951 BETER GELUID UIT DE ATOM 


25 SIMULATIE S11 
£9 SOUND 184 


ION NO 
ens 
@ 

@ 


954 AUDIO-VERSTERKER VOOR ATOM SOUND 184 

1819 HET WILHELMUS 22 SOUND 590 

915 PROGR. BEAUTFY „LEESBAAR 38 SOURCEMAKER 450 
ASSEMBLER 

15398 SPEECH SYNTHESIZER ATOM 8 2 7 SPEECH 184 
(SAMENV . } 

13635 SPEECH DEMO 8 19 SPEECH 284 

925 STAT STATEM.OVERZ EXTRA PCHARM 7 1 57 STATEMENT 312 
STATEM. 

924 BCOPY STATEM. PCHARM 7 B 58 STATEMENT 512 

929 PLIST STATEM. PCHARM, LEESBAAR 7 1 64 STATEMENT 312 
LISTEN 

1014 MAKE-STATEMENT VOOR DISK 7 4 72 STATEMENT 312 
PCHARM 

1414 WRITE-III,TEKENPROBRAMMA (GDDS) 8 2 46 TEKENEN 428 

947 RAMPEN MET ED64 EN ED8O 7 2 59 TEKSTVERWERKING 414 

931 MONITOR AAN DE ATOM 7 1 75 TV/MONITOR 185 

955 SCREEN-EDITOR, HANDL . 7 2 &9 UTILITY 414 

Fb& DIV. P-CHARME-EXTENSIONS , HANDE . 7 5 36 UTILITY 312 

975 DISK-CATALOGUS V, INHOUD 7 3 47 UTILITY 412 
DIV.DISKS 

976 SPACER (EXTRA SPATIE 7 3 48 UTILITY 450 
REGELNO/TEKST 

998 IRG-HULP GAMES-ONDERBREKER 7 4 46 UTILITY 225 

1028 ESCAPE AT LINE xxxx 7 4 59 UTILITY 310 

1918 STATEMENT "CHAIN" VOOR 7 4 &8 UTILITY 311 
COS-GEBRUIKERS 

1011 CHEEK-SUM-PROGRAMMA 7 4 &1 UTILITY 4350 

1012 EPRDM-NUMMER SCHAKELK. OP 7 4 62 UTILITY 450 
SCHERM 

1215 VERBETERDE SCOURCE-MAKER INFO 8 1 7 UTILITY 320 

1917 DISKINFO, HULP V, DISKROM 8 1 12 UTILITY 279 

1022 CORRECTIE CHECKSUM 8 1 3535 UTILITY 450 

1038 TVWMUBB TEKSTVERWERKER 8 1 57 UTILITY 414 

1408 SPACER'S,VERSIE 2/3 8 2 31 UTILITY 455 
(LIST-HULP) 

1425 FORMATTED PROGRAM LISTING 8 2 65 UTILITY 458 

1428 ED8D-v4 ,WORDPROC. v. ELEETUURK 8 2 78 UTILITY 414 

1542 NIEUWE JVDU D,1 8 3 24 UTILITY 250 

1359 VERBETERDE LISTING 8 4 15 UTILITY 4350 

1564 UITLEZEN #BFFF 8 4 21 UTILITY 222 

13467 LED-BAR ALS INDIC. v. SCHAKELK 8 4 32 UTILITY 1272 


MI HY 1998-1989 


Jaaroverzicht Atom-nieuws 
Jaargang 7 & 6 1988-1989 








==anereszeezs: 





enr Artikel JR. NR. blz. SOORT ARCH. 
CODE 
1569 SOURCEMAKER HERZIEN (N) 8 4 34 UTILITY 4358 
1372 WEER EEN G-DUMP 8 4 38 UTILITY 450 
1375 MEMORYMAP 8 4 57 UTILITY 269 
1577 8O0T.MG SOFT 8 4 68 UTILITY 225 
1379 TYPE AHEAD B 4 65 UTILITY 289 
1544 SALFAA 2,6 [] 3 32 UTILITYS 321 
1556 AUTOMATIC PROGRAM-SAVER 8 3 78 UTILITYS 279 
914 VDU 3.1 NIEUWE 7 1 54 VDU 251 
88-KOL , SOFT ,HANDL . 
985 VDU 5.2. 8BKOL. SOFT , HANDE. 7 3 &S VDU 251 
991 HIGH-LOW VIDEO BOK KAART 7 4 27 VDU 151 
1883 VERNIEUWDE VDU 7 4 54 VDU 251 
3. 5, 88KOL-SOFT , INFO 
1828 JVDU-0.D BEK SOFTWARE ,CLUBK. 6 1 25 VPU 251 
1825 COLOUR-EMULATOR V.SBK. KAART B 1 46 VDU 598 
1408 EF9345 VIDEOPROCESSOR 8 2 13 VDU 258 
COMMANDO 'S (2) 
1417 VDU-5,5 VERBETERING 8 2 5@ VDU 258 
1351 VDU 3.4 8 3 5& VDU 251 
15352 UDS-EDITOR B 5 && VDU 251 
1557 VERNIEUWDE LICHTKRANT 8 4 13 VDU 188 
1578 2MHz EN 87-KOL. KAART a 4 35 VDU 259 
1578 NIEUWE KARAKTERSET B@-KOLK. 8 4 &2 VDU 259 
95B VIDITEL V6,B ,HANDL. 7 2 54 VIDITEL 288 
977 NOGMAALS VIDITEL V 6.8 INFO 7 3 49 VIDITEL 280 
1886 VIDITEL VERBET. (OTTEN/BOUSSEN) 7 4 58 VIDITEL 258 
925 RESONANT IEKRING-BEREKENING 7 1 59 WISKUNDE 570 
944 GETALSTELSELS 7 2 32 WISKUNDE 560 
1082 OPPERVLAKTE-BEREKENING 7 4 53 WISKUNDE [', 


DRIEHOEKEN 
1925 WET VAN OHM 
916 ERVARINGEN MET DE Z-80-KAART 


57 WISKUNDE 578 
42 288/CPM 127 


SEN 
NN te & 
_ 

u 


939 ERVARINGEN MET DE Z88-KAART Z88/CPM 127 

940 MINITERM (ATOM ALS TERMINAL 19 288/CPM 590 
v‚ 250) 

970 VERBETERINGEN AAN DE Z8BKAART 7 5 48 289/CPM 127 

971 HARDWARE VERBETERINGEN CP/M 7 5 41 Z88/CPM 127 

972 LOSSE CP/M FLODDERS 7 3 44 288/CPM 127 

974 CP/M SOFTWARE 7 3 46 Z88/CPM 370 

985 SIE-PIE-EMMERTJES,Z80-WETENSWA 7 5 75 288/CPM 127 
ARD. 

995 EXTRA-VIA-288-KAART 7 4 36 Z88/CPM 188 

1084 SIE-PIE-EMMERTJES, Z88-WETENSWA 7 4 55 Z80/CPM 227 
ARD. 

1597 SIE-PIE-EM SOFTWARE 7 3 74 258/CPM 227 

1405 SIE-PIE-EMMERTJES{(START-UP) B 2 26 788/CPM 370 

1355 SIE-PIE-EMMERTJES 8 3 75 Z8@/CPM 27 A 
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door Roland Leurs, mmv. Emiel Hounjet 





In de vorige aflevering had ik u de software voor een eprom 
programmer beloofd. Die krijgt u hier dus ook, 


De programmer waar het om draait is het model uit “Electronics 
and Computing Monthly’ nummer 1 uit 1985. Deze programmer is 
ontworpen voor de BBC en dus hebben vele atomisten deze 
programmer. Nu we ook een 6522 aan de Electron hebben hangen 
kunnen we ook met deze machine eproms programmeren. Gewoon een 
kwestie van programma opstarten, eprom software inladen en blowen 
maar ! 


Nu we het er toch over hebben, Emiel Hounjet heeft de programmer 
aangepast voor 12.5v eproms. Met een schakelaar of jumper kunnen 
we kiezen voor 21v of 12,5v. 

De wijziging is heel eenvoudig: een 12 valt stabilisator met in 
de minleiding een diode wordt met de 21 volt programmeerspanning 
verbonden. Met een schakelaar kunt u dan omschakelen tussen de 
twee spanningen. Zie cok onderstaand schema 


UV 72 
(eottector) 


Vep (Sprom pini) 





Als vu de programmer nog moet gaan bouwen, kunt u mij even bellen 
voor een aangepaste print-laycut waar de wijziging voor 12.5 — 21 
volt al is op aangebracht. Zie de figuur onderaan de bladzijde. 


Bij de programmer horen twee programma’s, een testprogramma voor 
de epram programmer en het programma voor het programmeren van de 
eproms. 


De software voor de programmer staat op de volgende pagina’s 
afgedrukt. Uiteraard zijn de programma’s ook op de regioschijf te 
vinden. 


Succes ermee ! 


[s Pi B onzer Vor 
Bir ï | rt TA 
Î 





19REM EPROM CONTOLLER V2.1 
SOFL-&B0O: EX=-420: Bl=&1FOO 
6ads=870: bits=&72: cou=873: buf=&74: temp=8&76: pwr=&77 
9@via=&FDOG: PROCasn: MODE 6 
10OviaP&C=4CE: VDU23; 8202; 0; 0; ©; : PROCpage(” MAIN MENU") 








11OPRIN 1) TOGGLE BETWEEN 2764/27128"““" 2) LOAD IN A TAPE FILE TO 
BUFFER'“““ 3) CHECK FOR ERASED EPROM'”“" 4) LOAD IN EPROM CONTENTS” 
“__ 5) BLOW BUFFER INTO EPROM'““" 6) EXAMINE BUFFER CONTENTS“! 7) COK 
PARE BUFFER WITH EPROM” 

115PROCgetcom(7) 


1280N C4GOTO20G, 210, 250, 300, 350, 400, 550 

2OOIFE%=8&40THEN E%-&20 ELSE E%=&40 

2O5PROCupd: GOTO 115 

210PROCpage ("LOADING A FILE INTO BUFFER"): INPUT "Type the filename: " 
A$:H4=&COO: SHA="LOAD "+AS+" 1FOO”+CHR$13: X4=0: Y%=12: CALL&FFF7: GOTO10G 

250PROCpage (”EPROM ERASURE TEST"): A%=2: L4=E%: E4=&40: CALLrd: E%=L%: IFCPb 
its) =OTHENPRINTTAB(12, 13);"EPROM IS ERASED"” ELSE PRINTTAB(13, 13);”NO GO 
AT &;”“(256X?ads) +(ads?1) 

260GOTO 360 

300A%=0: CALLrd: GOTO 400 

S35OPROCpage ("BURNING THE EPROM”):CALLburn: IF(?bíts)=OTHENPRINTTAB(6, 13 
>“ALL DATA VERIFIED OK” ELSE PRINTTAB(®,13);"BAD DATA @ &”; “Ct! buf) AND&F 
FFF);” prog’d &';“?&80;", read &”;”“?&81 

S6OPRINTTABC@,24);"” Press any key to return to menu”;:A%=GET:GOTG 100 

4OOCLS: HL=&1FOO: PRINTTABC®, 12) ; : FORT%=H4TOH%+O6 STEPS : PROCI (T%) : NEXT: XF 
X4,1 

4OS5XFX12, 12 

4102%=0: REPEAT: AL=GET: IFA%<> 139 THEN450 

420K%=HL-96: IFKACAIEAOTHEN 500 ELSE VDU 30, 11: H%=H4-8: IFKACA1FOOTHENSG 












43OPROC1 (K%): GOTO 509 

4SOIFA%<>138THEN 490 

46OK%=-H%4104: IFKZ>&7O6OTHENSSO ELSE PRINTTAB(O, 24); : H%=H448: IFK%>&7000 
THENS590 

47OPROCI (K%) : GOTO5OO - 

490 IFAL=32THENZ%=1 

SOOUNTILZ%: GOTO1OG 

SSOPROCpage ("CHECKING EPROM AGAINST BUFFER"): A%=1:CALLrd: IF(?bits)=0TH 
ENPRINTTABC11, 13);"”CHECKS OUT EXACTLY” ELSEPRINTTAB(11,13);"NO GO AT &”; 
"(256XPads)t(adsP1);TAB(IO, 15);"Buff= &";"P&81;' EPROM &"; “PR80 

560GOTO3GE 

998STOP 

1OOODEFPROCpage (A$): CLS: AS=STRINGS((34-LENAS)DIV2," ")+A$: PRINTAS: PROCu 
pd: ENDPROC 

1O1ODEFPROCupd: PRINTTAB(O, 3); “&1FO@; TAB(28, 3); : IFEX=&4OTHENPRINT" 27128 
C16K)"; ELSEPRINT” 2764 (BK) *; 

1@2OPRINT”““: ENDPROC 

1O3ODEFPROCgetcom(A%): PRINTTAB(®, 24) ;*” Press the appropiate number";: 
REPEAT: VDU7: C4=GET-48; UNTIL (C%>O) ANDC%<=A%) : ENDPROC 

1C4ODEFPROCI CA%) : PRIN FOR Y%=T07: KX=Y%PA%: IEK%ACISTHENVDU48 
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10S5OPRINT; “K%;" ";: NEXT: PRINT” ";:FOR Y4=OTO7: K4=YUPAKAND127; IE CKHA31) 
AND(K%<>127) THENVDUK% ELSE VDU46 

1O6ONEXT: ENDPROC 

2000DEFPROCasm: FORY4=OTOSSTEP2: PA=F%: LCOPTY%:. init LDA#O: STApwr: LDA#&5O: 
JSRlatch: LDA#&51; JSRlatch: LDA#&50: JMPlatch 

2020. latch STAltemp:LDApwr: BEQlag: LDA#4&88: ORAltemp: STAltemp:. laq LDA#&E 
F:STA via+2:LDAads: ÁND#16: LSRA: LSRA: LSRA: LSRA: ORAltemp: STAltemp: LDÂade: A 
ND#32: ORAltemp: STA via: LDA#&DE: STAvia+&C: LDA#&FE: STAviat&C: RTS 

2050.rd STAbits:LDA#O: STAbuf: STAads: LDA#&1F: STAbuf +1: LDA&414: STAcou: LDA 
#&5O: JISRlatch: LDA#&54: JSRlatch: LDA#8&50: JSRlatch: LDY#Ò 

2060. r1 JSRad1:LDA#&10: JSRlatch:LDA#O: STAviat2: LDAbits: BNEcom: LDAvia: ST 
A<buf),Y: JMPend:.com CMP#2: BEQera: LDAvia: CMP(buf),Y: BEQend:.ngo STYadet1 
:STA&8O: LDACbuf), YY: STA&BI: LDA#&FF: STAbits: RIS: era LDAvia: CMP#&FF: BNEngo 
2070.end LDA#&S2: JSRlatch: INY: BNEr1: DECcou: INCads: INCbuf +1: LDAcou: BNEr 1 
:LDA#&50: JSRlatch: LDA#O: STAbits: RTS 

2100, burn LDA#O: STAbuf: STAads: LDA#&IF: STAbuf +1: LDA&414: STAcou: LDA#&5O: J 
SRlatch: LDA#&54: JSRlatch: LDA#1: STApwr: LDA#&40: JSRlatch: LDA#129: LDX#70: LD 
Y#0: JSR&FFF4: SEI: LDA#&CE: STAviat&C: LDY#O 

2110. bu® JSRad1l:LDACbuf), Y: STA&BO: LDX#O: STXbits:.b@ ASLA: BCSP4+4: INCbit 
s: INX: CPX#8: BNEb@: LDXbits: BEQbu3:. bu2 LDA#&50; JSRlatch:LDA(buf),Y: STAvia 
:LDA#&10:. bul BITviat+&D: BEQbul: NOP: NOP: DEX: BEQbu3: LDA#&40: JSRlatch: JMPbuê 


2120. bu3 LDA#&CE: STAvia+&C: LDA#&O: JSRlatch: NOP: LDA#©: STAviat2: NOP: NOP: L 
DAvia: CMP (buf), Y:BEQago: STYbuf: STA&B1: LDA#1: STAbite: BNEex: ago LDA#&4S: T 
SRiatch: INY: BNEbu®: DECcou: INCads: INCbuf +1: LDAcou: BNEbu®: LDA#O 

2130.ex STAbits:CLI:LDA#Ò: STApwr: LDA#&50: JMPlatch 

251%, adl LDA#S1:JSR&FFE3: LDA#O: JSR&FFE3: LDA#3: JSR&FFES: LDAbuf +1: JSRprth 
ex: TYA:.prthex PHA: LSRA:LSRA: LERA: LSRA: JSRnibble:PLA:.nibble AND#&ÓF: CHF 
#&A: BCCgetal: ADC#6: getal ADC#4&30: JMP&FFES 

2999}: NEXT: CALLinit:ENDPROC 


LISTING 2 





PROGRAMMER TEST PROGRAMMA 


1OREM EPROM PROGRAMMER TESTER 
15DIM F% 200 
2Oads=#&70: result=&72 
25via=&FDOO: VDU 23,255,255,255,255,255,255,255,255, 255 
3OPROCasm: MODES: CALLtpld 
1@0PROCtestLED: PROCtest21V: PROCtest74121: PROCadstest: RESTORE: MODE6: PRI 
NT”THAT'S ALL THE TESTS. HIT ANY EEY TO RESTART.":A=GET: GOTO 190 
SOODEFPROCpage (AS): CLS: AS=STRINGS ((34-LENAS)DIV2, " ")+AS: PRINT A$°“;TA 
BC@, 240; " Press <SPACE> for the next test’; TAB(O, 4); : ENDPROC 
1OOODEFPROCtest74121: PROCpage(""74LS121 PGM- Pulse Generator”): PRINT” IC3 
generates PGM- pulses for the eprom during programming. These must be 
about6ms long (+/- 0.5ms), and have to begin 20 -— 100 usec after they ve 
been asked for,” 
1OO2PRINT"“: CALLtpld: IF(?result)=@THENPRINT" NO RESPONSE": GOTO1615 ELSE 
PRINT"'Start delayed by :” K= ((tads)AND&FFFF)-9: PRINT; D%;" usec! 
1005AL=INKEY5): CALLT121: IF(?result)=OTHENPRINT"NO RESPONSE: GOTO1O15 E 
LSE PRINT "Pulse length mey Dh=CCCtade)> AND&FFFF) -D%-9): PRINT; D%/1000 
me” 
1O1OPRINT"“"Average program time for 2764 (BK) ze TABC12); : Th=(32768XD 
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KI/1E6: PRINT; T4DIV6O;' mina ';T4MODED" zeca' 

1O1SREPEAT: UNTILINKEY(0)=32: ENDPROC 

1029DEFPROCtestLED: PROCpage("LED TEST“):PRINT"The LED should be flashin 
8 around twice a second. If it isn°t check that the LED is the right 
way around.” 

1O22REPEAT: A%=8: CALLlatch: PRINTTAB(19, 13); CHR$ (255) : A%=INKEY (15): IFA%CD> 
32THENA%=0: CALLlatch: PRINTTAB(19, 13);” "':A%=INKEY(15): IFA%C>32THENUNTILG 


1825GOTO 1940 

1Ö3ODEFPROCtest21V: PROCpage("21V TRANSISTOR SWITCH TESI”):PRINT”Pin 1 a 
n the ZIF should be alternating between 5V and 21V every five seconds 
The LED should be lighting when pin 1 isat 21V." 

1OSSREPEAT: A4=&88: CALLlatch: PRINTTABC18, 13); "21V"; : AL=INKEY(500): IFA%C> 
S2THENA%=0: CALLlatch: PRINTTAB(18,13);"” SV“; : A%=INKEY(500): IFA%<>32THENUN 
TIL® 

1040A%=0: CALL latch: ENDPROC 

1OS5ODEFPROCadstest: PROCpage ("ADDRESS LINE TEST'):PRINT"Use a couple of 
inches of wire to link pin 18 on the ZIF socket to other ZIF pins. Wh 
en connected hit <space>" 

1055A%=®: CALLlatch: A%=4: CALLlatch: C4=0: FORT%=0TO13: READB%: PRINT“*A*; T%; 
TAB(5);"”: Link pin 18 to pin ";B%; 

1O6OPRINT; TAB(30) ; : AX=GET: P(vlat2)=0: R4=?via 

107OIFT%=OTHENA%=O: ELSE A%=(2°(T%-10)-1 

1O8DCHCHHAL+1: CALLohng: ?(vla+2)=®: AL=INKEY(1): S%=(Pv1iad AND64: IF (R4=&BF 
)ANDS%=64) THENPRINT"OK"; ELSE IFCR4=&BF)AND(S%=0) THENPRINT" short”; : ELSE 
PRINT “open”; 

199ÖNEXT: GOTO1015 

199ODATA10,9,8,7,6,5,4,3,25,24,21,23,2,26 
1995DATA11,12,13,15,16,17,18,19 

2OOODEFPROCasm: FORY4=OTOSSTEP2: P4=F%: [OPTY%:.T121 SEI: LDA#O: JSRlatch: LD 
A#&10: JSRlatch 

2005, time LDA#O:STAads: STAadst1:LDA#&FF: STAviat4: STAvia+5:LDA#&10:.t1 B 
ITviat&D: BNEtla: INCads: BNEt1: INCads+1: BNEti;LDA#O:.tla STAresult:LDAvlat 
4: EOR#&FF: STAads: LDAvia+5: EOR#&FF: STAads+1: CLI: LDA#®©: JMPlatch 

2007, tpld SEI:LDA#©:JSRlatch: LDA#&10: STAvia: LDA#&CE: STAvia+&C: LDA#&EE: S 
TAvia+&C: JMPt1me 

2010. chng LDA#©: JSRlatch: LDA#2: JSRlatch: DEC&404: LDA&404 : CMP#&FF: BNEchng 
: DEC&405: LDA&405: CMP#&FF: BNEchng: LDA&4@D: LSRA: LSRA: LSRA: LSRA: : AND#1: STAr- 
esult:LDA&4@D: AND#820: ORAresult: JMPlatch 

250% latch PHA: LDA#&FF: STAvia+2: PLA: STAvia: LDA#&CE: STAvia+&C: LDA#&FE: ST 
Avia+&C: RTS 

2999]: NEXT: ENDPROC 





Opmerking: 





Het eprom programmeer programma kont te staan vanaf &E0O. Echter vanwege 
de grote buffer (16 kBytes!) die op &1F00 begint, was er weinig plaats om 
de machinecode weg te schrijven, Ik heb gekozen voor &B0@.,.&BFF, een 
stuk dat normaal gebruikt wordt om de functietoetsen op te slaan. Dit 
heeft als gevolg dat na gebruik van dit programma de breaktoets nogal gek 
doet. Dit is op te lossen d.m.v. CTRL+BREAK. Het programm en de inhoud 
van de buffer blijven behouden. 

Het basisadres van de VIA staat in de variabele “via” (regel 99 van 
eprprog en regeì 25 van prgtest). 


DE CPU KAART J,FERON ATOM NIEUWS PAG. 45 


DE CPU KAART IS KLAAR: MAAR NU TESTEN ? 


Enige jaren geleden kocht ook ik als zoveel anderen indertijd, 
een ACORN ATOM 12K/12K computer. In het prille begin werd er 
hoofdzakelijk "SNAPPER" gespeeld en werden er dagelijks high 
scores verbeterd. Maar na enige tijd werd het verbeteren van mijn 
persoonlijk record zo moeilijk, en kwam dit!!! sporadisch voor, 
dat ik mij meer voor de hardware van de ATOM ging interesseren. 
Allereerst werden er wat boxen voor het #a-gebied aangeschaft. 
Vrij snel hierna kwam een MDCR omdat de snelheid van het stan- 
daard COS toch wel iets te wensen overliet. 
Toen alles naar wens werkte kreeg ik behoefte aan wat meer geheu- 
gen, er werden twee universele geheugenkaarten van elektuur ge- 
bouwd en aangesloten. Hierna volgde een elektuur 80-koloms kaart. 
Om alles netjes en overzichtelijk aan te sluiten heb ik 2 bus- 
printen gemonteerd, 7 "slots" volgens ATOM en 7 "slots" volgens 
ELEKTUUR BUS. 
Een logisch vervolg op mijn hardware uitbreidingen was dan ook: 
het bouwen van een nieuwe ATOM, bestaande uit: 

-een schakelkaart 

-een 1/0 kaart 

„een FDC kaart 

=een CPU kaart 
Ondertussen (na ongeveer twee jaren van overleg met diverse 
clubleden, over het hoe-waarom-en waarom niet anders) heb ik de 
schakelkaart en de CPU kaart klaar. 

Het is de bedoeling om op de I/O kaart de 8255,6522,en de 6847 
onder te brengen, maar zover is het nog niet. 
De serieuze lezer begrijpt mijn probleem al, de CPU kaart kan 
niet getest worden op de oude ATOM, maar ook niet op het nieuwe 
systeem omdat de nieuwe I/O kaart nog niet klaar is. 
Het was dus noodzakelijk iets anders te bedenken. 

Ik heb het probleem opgelost met behulp van wat componenten die 
elke atomist wel in de rommeldoos heeft liggen, en een speciale 
1/0 kaart die ik nog op de plank had liggen,met daarop 4 stuks 
6821 (PIA) die ik eens gebouwd heb voor een projektje om een 
matrix van 80*80 ledjes aan te sturen voor grafische toepassin- 
gen. 
De bedoeling is dat de processor samen met de 6821 op de I/O 
kaart (dit mag natuurlijk ook een 6522 zijn) en wat extra elec- 
tronica een tellertje vormt dat telt van 00 tot 99 ( het bijge- 
voegde schema-tje zal de zaak snel verduidelijken ). 

Tevens is er voorzien in een NMI en een IRQ routine die eventueel 
door de gebruiker naar wens aangepast kunnen worden. 

De source is zo geschreven dat de gegenereerde object direct in 
het #F-gebied gezet kan worden. Het is dus niet nodig om de hele 
zaak te relocaten. Dit betekent dus tevens dat de software zonder 
aanpassingen niet in het normale RAM geheugen zal werken. Het zal 
wel duidelijk zijn dat wanneer men het programma gebruikt er een 
zogenaamd "stand alone systeem" ontstaat dat afhankelijk van het 
optreden van RESET,IRO, of NMI andere akties verricht die goed 
herkenbaar zijn op de beide displaytjes. 
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Dus wanneer de teller goed telt, en dit is natuurlijk simpel te 
beoordelen, kan men er van uitgaan dat de 6502 goed werkt en dat 
alle lijnen goed zijn aangesloten. Conclusie: Uw pas gebouwde CPU 
kaart funktioneert prima en werkt ook nog goed met alles wat 
buiten zijn buffers ís aangesloten. 

Enige opmerkingen: 

De conversie tabel ís nodig om de tellerstand te vertalen in de 
overeenkomstige waarde voor de displays. 

Wanneer men de afzonderlijke segmenten van de displays niet 
hetzelfde aansluit als in het schema aangegeven zal men de con 
versie tabel dus moeten aanpassen, anders verschijnt er wartaal 
op de displays. Met het gevolg heel lang zoeken naar fouten op de 
CPU kaart die er niet zijn. 


Op de door mij gebouwde CPU kaart bevind zich RAM van #0000 tot 
#07FF vandaar het gebruik van de willekeurig gekozen geheugen 
plaatsen #O6FD tot #O06FF (er was toch plaats genoeg). 

Dit zelfde geldt ook voor de adressem in het #F-gebied. 


Wanneer er niet direkt een 6821 bij de hand is in het gebied 
#BCOO tot #BCOF is dit geen probleem er wordt uitsluitend recht 
toe recht aan output gepleegd. Dus aanpassen aan andere 1/0 chips 
(bijv. 6522) is niet zo moeilijk. 


In de hoop eventuele CPU kaart bouwers een leuk en misschien 
nuttig programma te hebben bezorgd, zou ík mijn verhaal willen 
afronden. 

Voor nu, wens ik iedereen veel succes met de nieuwe ontwikkelin- 
gen aan het ATOM front. 


bijbehorende software CPU-3.4 


Par JOHN FERON — ACC -— SITTARD — 
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gSURSUS PROGRAMMEREN MET GAGSROM il 
kr 





Leer programmeren met gagsrom 
door roland leurs 


In dit nummer begin ik met een nieuwe cursus. Om deze cursus te 
begrijpen, is kennis met standaard Atom Basic wenselijk. Als u 
de beginnersloge gevolgd heeft, dan moet het wel lukken. 


Deze cursus bestaat uit drie delen, in dit eerste deel de 
algemene statements en graphics, het tweede deel behandelt de 
sprites en in het laatste deel ontwerpen we stap voor stap een 
spel. 


INLEIDING SAGSGSROM 








Deze rom is geschreven door Gerrit Hillebrand. Zijn opzet was 
om het mogelijk te maken dat iedereen met eenvoudige commando’s 
grafische effecten en bewegende figuren te gebruiken. 

Het begon met Gags versie 2.0, met een aantal invoer statements 
graphic en sprite support. In versie 2.3 waren enkele foutjes 
verwijderd en enkele statement toegevoegd. 

In mijn betoog geef ik wel aan als er verschillen optreden 
tussen de twee versies, maar met versie 2,3 zit u er voor alle 
toepassingen goed bij. 


INVOER STATEMENTS 





In deze groep zitten 2 statements. Dit zijn 

— JOYSTK <var>, <var>, <vard 

— ATKEY (Steken>,....) (Sregelnr/label>,...) 
Het statement JOYSTK wordt gebruikt om de stand van de joystick 
uit te lezen, Het is vereist dat deze volgens club afspraak is 
aangesloten op de toetsenbordmatrix van de Atom. Achter het 
statement moeten drie variabelen staan, deze worden dan met 1 
verhoogd of verlaagd ais de joystick een richting aanduidt. In 
onderstaand voorbeeld ziet u hoe u de joystick vit kunt lezen: 


18 DO 

20 H=O;V=0;F=0; REM beginwaarden 

30 JOYSTK H‚V,F 

40 IF H=1 THEN PRINT "RECHTS" 

56 IF H=255 THEN PRINT ”LINKS"” 

66 IF V=1l THEN PRINT “OMHOOG” 

70 IF V=255 THEN PRINT “OMLAAG” 

80 IF F=1 THEN PRINT "VUURKNOP”” 

9@ UNTIL F=1 ;REM een druk op de vuurknop stopt het programma 
108 END 





Doordat in regel 20 steeds de variabelen op nul gezet warden, 
zijn de waarden bekend als de joystick bewogen wordt, Zou u dit 
niet doen, dan worden de waarden steeds verhoogd of verlaagd en 
u weet op een bepaald moment niet meer de juiste waarde. 


Het statement ATKEY kijkt of een van de opgegeven toetsen is 
ingedrukt. Zo ja, dan wordt gesprongen naar het regelnummer dat 
bij die toets hoort (dat geeft u ook op bij dit statement). In 
gags v23 mag u ook labels gebruiken, dit heeft als voordeel 
dat u uw programma met RENUM uit de josbox kunt hernummeren. 
Voorbeeld: 


18 ATKEY (A,B,E) (30,40, 50) 

2® GOTO 19 

3OaPRINT "U DRUKTE OP A”;GOTO 10 
4ObPRINT "U DRUKTE OP B’;GOTO 10 
SOeEND 


Als u v2.3 gebruikt kunt u regel 1 ook veranderen in 
19 ATKEY (A,B,E) (a,b‚e) 
Äls er geen toets wordt ingedrukt dan gaat het programma 
gewoon zijn gang bij de volgende regel 
De toetsen die u kunt gebruiken in het atkey statement zijn: 


CABCDEFGHIJKLEMNOPQRSTUVWXYZ: ; <=? 
0123456789 


GRAPHICS MODE EN KLEUREN 





Als we een programma laten lopen, moeten natuurlijk eerst de 
plotvectoren (#3FE en #3FF) goed gezet worden, en we moeten de 
Juiste mode kiezen en het scherm wissen. Dit lijkt veel, maar 
hiervoor hebben we het commando CLEAR x in onze rom zitten. We 
stellen dus alles ín met bijvoorbeeld 


19 CLEAR 4 


Ve stellen hiermee de graphicsmode in op 256x192 puntjes. Alle 
voorbeelden laat ik zien in deze mode, maar let wel erop dat 
de statements niet in alle graphicmodes werken. Voor modes 
lager dan 4 kunnen er problemen ontstaan met de opgegeven 
coördinaten. 


Het statement MODE dat de gagsrom bevat verandert alleen de 
instelling van de videochip van de atom. Er worden geen 
vectoren veranderd en het scherm wordt niet gewist. In 
onderstaande tabel kunt u zien welke waarde opgegeven moet 
worden bij het gewenste scherm: 


MODE x clear® 
clearl met kleur: 
clear2 met kleur: 
clear3 met kleur: 
clear4 met kleur: 


zonder kleur 
zonder kleur 
zonder kleur 
zonder kleur 


VW 
OD PN 


FKUGKAMMEERUURKDSUS GAGSKUM 


LEURS 
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Als u een atom met {(delftse) kleurenkaart bezit, 
U kunt kiezen uit 4 


gagsrom ook 


in kleur werken, 


dan kunt u met 
achtergrond 


kleuren en maar liefst 16 voorgrond kleuren 


De 


en de 


achtergrondkleuren kunt u kiezen m, b.v. 
voorgrondkleuren m.b.v 


het statement PAPER 


staan in onderstaande tabel gegeven 


PAPER groen 


blauw 


Pe 


INK transparant groen 
lichtgroen 

paars 

donker bruin 
groen (1) 

geel 

rose 

oranje) 


NOURAONHS 


Het 


statement paper stelt de hoogste grafische kleurenmode 


de gewenste achtergrondkleur in en maakt het scherm schoon. 


De 


het statement INK. De kleuren 
2 geel 
3 rood 
8 cyaan 
9 grijs 
10 blauw 
11 donker blauw 
12 groen(2) 
13 oranje(2) 
14 magenta 
15 rood 
in 
dus een 


plotvectoren worden helaas niet direct goed gezet 


ciear4 commando moet gegeven warden. 


Voorbeeld: 


19 CLEAR 4 

20 FOR P=@ TO 3 

30 PAPER P 

40 FOR B=@ TO 500 STEP 2 


50 BORDER B,B 
69 NEXT B 
79 NEXT P 
89 GOTO 20 


Dit is een programma dat een eenvoudig lijnenspel op het scherm 


plaatst; 


verander regel 19 eens in CLEAR 3 en zie het resultaat 


als de plotvectaren niet goed staan. 


(Overigens kan een 


plotvectoren erg ongunstig staan 


CIRKELS, 


programma kapotgeschreven worden 


als de 


> 


RECHTHOEKEN EN LIJNEN 








Gagsrom biedt 


ons ook de mogelijkheid om 


toestanden een cirkel te tekenen. 


is het 


opgeven van het middelpunt en de straal van de 


‘het aantal punten tussen middelpunt en cirkelboog). 


Voorbeeld: CIRCLE 1,128,96,70 


Er verschijnt 
van een clear4 scherm. 


De syntax van het CIRCLE statement is: 
reset pixels 

set pixels 
inverteer pixels 


Hierin is M de plot mode: @ = 
1 
2= 





nu een cirkel met het middelpunt in het 


zonder omslachtige 

Het enige wat wij moeten doen 
etrkel 

midden 


CIRCLE M‚X,Y,S. 


Pixels zijn de puntjes waaruit het beeldscherm is opgebouwd 


Het spreekt voor zich dat X de horizontale coördinaat is, Y is 
de verticale coördinaat en S is de straal van de cirkel. 

>CLEAR 4; DO CIRCLE 2,128,96,75;PAUSE 19;UNTIL @ 

geeft een knipperende cirkel op het scherm 

Als we een tekening maken en we willen er een lijstje omheen 
plaatsen dan kunnen we het statement BORDER A‚,B toepassen. 


Hierbij is A de afstand tussen de linker en rechterkant van het 





Schers en het lijstje, B íe de afstand tussen de boven en 
onderkant van het scherm en het lijstje. 

Het lijstje is altijd 1 pixel dik en het statement inverteert 
altijd de pixels waar het lijstje getekend wordt. 


Het is ook mogelijk om gehele rechthoeken op een willekeurige 
plaats te tekenen. We gebruiken hiervoor de statements CUBÉ en 
BLOCK. Het verschil is dat CUBE alleen de rechthoek tekent en 
BLOCK kleurt de rechthoek in. Verder biedt CUBE nog enkele 
foefjes bij het tekenen. 


Syntax : CUBE P,M,X,Y,B,‚H 
BLOCK P,X,Y,B,H 


Hierin is P de plotmode (@=reset, l=set,2=invert pixels) 

de x-coördinaat van de linker benedenhoek 

de y-coördinaat van de linker benedenhoek 

de breedte van de rechthoek 

de hoogte van de rechthoek 

(alleen bij CUBE) heeft devolgende mogelijkheden: 

@ tekent de rechthoek ongeacht of er gesette pixels 
zijn of niet 

1 tekent de rechthoek tot aan het eerste gesette 
pixel dat op zijn weg staat 

2 tekent de rechthoek vanaf het eerste gesette 
pixel dat op zijn weg staat 

3 tekent de rechthoek tot aan het eerste gesette 
pixel en begint weer bij het volgende gesette 
pixel 

4 begint te tekenen bij het eerste gesette pixel en 
stopt bij het eerst volgende gesette pixel 


En bi eq be 


Onderstaand programma zal een en ander duidelijk maken omtrent 
de waarde van M: 


18 REM DE TOETSEN @-4 KOMEN OVEREEN MET DE FEATURE MODE 
29 CLEAR 4 

30 ATKEY (@,1,2,3,4)(40,59,60,70, 80) 
35 GOTO 30 

40 A=6;GOTO 9% 

5@ A=1;GOTO 98 

69 A=2;GOTO 90 

70 A=3;GOTO 90 

89 A=4 

9% CUBE 1,9,80,80,80,60 

19% CUBE 2,A,69,9@,8%, 69 

11® PAUSE 240 

128 GOTO 20 





Op lijnen te tekenen hebben we de statements MOVE en DRAW al 
standaard in de Atom rom zitten. Gags biedt ons de mogelijkheid 
om een bepaald stuk van een lijn te laten tekenen. 

Stel we willen SD een weg tekenen voor een tekening. Het 
beginpunt van de linkerlijn ligt linksonder op het beeld (6,6). 
Het eindpunt moet precies op de vertikale helft liggen van het 
beeldscherm. Het rechtse beginpunt moet rechtsonder in beeld 
(255,0) beginnen en het rechtse eindpunt moet ook op de helft 
van het scherm liggen. Verder moet het lijken dat als de lijnen 
in gedachte doorgetrokken worden dat ze in een bepaald punt bij 
elkaar komen (bijvoorbeeld in 128,192; dit is bovenaan midden 
op het scherm). 
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De weg moet zo worden als in onderstaand figuur te zien is: 





U kunt nu wel met allerlei wiskundige formules de begin en 
eindpunten berekenen en dan tekenen, maar het kan makkelijker. 
Het statement VLINE tekent de lijn waarvan u het begin en 
eindpunt weet, maar stopt met tekenen zodra de Y-coördinaat 
groter ís dan de door u opgegeven waarde, 
Met onderstaande opdracht geeft u het commando om de weg te 
tekenen zoals in bovenstaande figuur geschetst is. 

VLINE 1,0,9,128,192,128,0,X,Y de tinker lijn 

VLINE 1,255,0,128,192,128,0,4,B de rechter lijn 
Zoals u ziet moet er nogal wat opgegeven worden bij dit 
statement: VLINE p‚xb,yb,xe,ye,elind,f,A,B 


waarbij p = plot mode (@=reset, I=set en 2=invert pixel) 
xb en yb = coördinaten beginpunt 
xe en ye = coördinaten eindpunt 


eind = y-coördinaat waar gestopt wordt met tekenen 
f = pixel feature : @ = teken tot aan eind pixel 
1 = teken tot aan eerste 
gesette pixel 
A en B = twee variabelen (A t/m Z) waarin de 
coördinaten van het laatst getekende punt 
in opgeslagen worden. 
Een hele mond vol dus. Maar ideaal bij het tekenen van S-D 
figuren. Het statement HLINE doet hetzelfde, maar dan moet voor 
eind worden ingevuld de x-coördinaat van het eindpunt. 
Op de regioschijf staat een demo uit een oude Atom Nieuws 
waarin ook gebruik wordt gemaakt van HLINE en VLINE 





GRAFISCHE WINDOWS 





Een graphisch window is een gedeelte van het scherm waarin we 
wel of niet kunnen tekenen. 

Vindows kunnen we gebruiken om bepaalde figuren op het scherm 
te tekenen, of als we een tekst op het scherm hebben staan die 
niet gewist mag worden door allerlei lijnen en cirkels etc. 

In de praktijk gebruik ik windows bijna niet, maar ze zijn 
reuze kandig als je een cirkel wil tekenen die niet compleet 
is, bijvoorbeeld een halve cirkel 


19 CLEAR 4 

20 WINDOW 1,1,1,253,96 
36 CIRCLE 1,128,96,70 
49 WOFF 

56 END 


Dit geeft dus een halve cirkel op de onderste helft van het 
beeldscherm. Als u regel 28 verandert in 

20 WINDOW @,1,1,253,96 
dan wordt de cirkel getekend op de bovenste helft, 





De eyntax is : WINDOW mx,y,b,h 
met m= mode , @ = teken aïleen buiten het window 
1 = teken alleen binnen het window 
x= x-coördinaat linker beneden hoek van het window 
y= y-coördinaat rechter benedenhoek van het window 
b= breedte van het window 
h= hoogte van het window 


U kunt de werking van WINDOW uitschakelen met de opdracht VOFF. 
Een beperking is dat u alleen rechthoekige ramen kunt maken en 
maar &én window tegelijk. Als er meerdere keren achter elkaar 
het WINDOV commando wordt gegeven, geldt alleen het laatste. 
Dus als u meerdere windows achter elkaar gebruikt hoeft u níet 
na teder window het commando WOFF te geven. Dit spaart geheugen 
en tijd. 


INKLEUREN MET PATRONEN 





Tot slot leert u nog zelf patroontjes te maken om het scherm 
mee in te kleuren. 
Hiervoor zijn nodig de volgende drie statements: 


BASE #aa 
CREATE/P:n,‚al,a?,a3,ad,a5,a6,a7,a8 
PAINT x,y,‚n 


Met BASE reserveren we 2 kBytes voor de opslag van de patronen 
die we meken en later ook voor sprites. Het getal dat we 
hierachter invullen is het highbyte van het beginadres. Dus als 
u de patronen wil opslaan vanaf #6000 dan typt u : BASE #60 


CREATE slaat de waarden al..a8 op onder patroon nummer n. Maar 
hoe komt u aan de getallen al..a8? Teken op een stuk papier een 
groot vierkant en verdeel dit in 64 kleinere vierkantjes, 

Kleur nu enkele vierkantjes in zodat het gewenste patroon 
ontstaat. Voor een streepjes motief zou onderstaand figuur een 
voorbeeld kunnen zijn: 


al 90019001 
a2 00100010 
a3 ©1000109 
a4 19091000 
as ©0010081 
ab 00100019 
a7 ®1000100 
a8 19091999 





Als U nu dit gaat omzetten kunt u deze hokjes als binaire 
getallen opvatten waarbij een open hokje een “@” voorstelt en 
een gekleurd hokje ís een “17. 
Voor al staat dus de waarde @0010001 = #11. Het CREATE 
statement zou voor dit patroon dus als volgt uitzien: 

CREATE /P:1,#11,#22,#44,#88, #11, #22, #44, #88 
Belangrijk is dus dat u overweg kunt met binaire getallen. Denk 
eraan dat de bovenste rij als eerste wordt opgegeven | 
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Als we nu een gestoten (!) vlak willen inkleuren met dit 
patroon dan typen we PAINT X,Y,1 in. De coördinaten X en Y 
moeten van een punt in dit vlak zijn. De Atom kleurt nu het 
vlak in tot aan de randen. Mocht er ergens een gat in de rand 
zitten, dan wordt er veel meer ingekleurd; pas dus goed op! 

Het laatste getal achter PAINT is het patroonnummer. Als u dit 
nummer weglaat wordt het vlak geheel wit gekleurd. 


In totaal kan gagsrom 32 patronen opslaan. Als dit niet genoeg 
is kunt u door BASE te veranderen nog enkele malen 32 patronen 
ontwerpen die u dan door de BASE te veranderen allemaal kunt 
gebruiken. U dient wel zelf bij te houden in welk geheugen 
gebied de patronen staan 


EINDE DEEL 1 





In totaal dus zo’n zeven pagina’s gagsrom — graphics. Op de 
regioschijf vindt u enkele voorbeeld programma’s met gagsrom. 
Bekijk deze programma’s goed want daar kunt u ook veel van 
leren. 

Vooral belangrijk is dat u ook het ontwerpen van patronen goed 
begrijpt en kunt toepassen, want het maken van sprites werkt 
volgens hetzelfde principe 

Mocht u vragen hebben stuur deze dan schriftelijk naar het 
redactieadres: 


Redactie Atom Nieuws 
t.a.v. Roland Leurs 
p/a Rosslag 13 

6049 BE Herten 


U kunt proberen te bellen naar mij thuis, maar È,v,m. 
verhuizing weet ik niet of ik gemakkelijk bereikbaar ben. 


Tot de volgende keer ! 
Met de vriendelijke groeten van Roland. 
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M'n Atom en ik. 


Met een plof valt Acorn Nieuws no. 3 op de mat. Na de wat ludieke 
tekeningen op de omslag van nummer Ì en 2 nu een tekening die mij 
meer aanspreekt. Zo voel ik me soms ook als ik met m'n Atom werk, 
of als ik Acorn Nieuws lees. Nou Ja, lezen? Het merendeel gaat me 
boven m'n pet. 

Ach, je hoeft niet alles te begrijpen, als het maar werkt! 
Alhoewel..... dat herinnert me aan de tijd dat ik m'n Atom pas 
had, nu zo'n drie jaar geleden. Hoe lang heb ik er niet over 
gedaan om een cassette recorder te vinden waar m'n Atom mee over- 
weg kon. Maar goed dat is verleden tijd! 

Alhoewel..... waarom gaat het af en toe toch nog goed fout? Op de 
club bijeenkomsten werken ze al met 1200 baud. Hoopvol probeer je 
dat ookeens, nou vergeet het maar dat werkt dus helemaal niet. 
Dan maar eens een clubbandje besteld, dat is tenslotte 300 baud. 
Tsja...dat komt van een andere recorder dus dat gaat ook niet 
best. Koppen afgesteld, snelheid nagekeken en een filtertje 
gemaakt. Na de zoveelste SUM ERROR koop je in een roale bui een 
disk-drive, een afgeprijsde orginele Atom drive, dat is een 
verademing! 

Alhoewel.....na een uurtje werken gaat het goed fout. De ene 
foutmelding na de andere. Via de club ontdek je dat de voeding in 
de drive niet deugd! Goed, bouw je een nieuwe en dan werkt het 
echt! ! 

Enthousiast spit je opnieuw alle nummers van Acorn Nieuws door op 
zoek naar leuke programma's en toepassingen. Wat je dan niet 
helemaal leest, veranderen, omsolderen, doorkrassen, bijplakken, 
weghalen, verplaatsen en het geheugen is ook al niet toereikend. 
In mijn hoofd ook niet want waar moest de FDC ook al weer naar 
toe? Je ziet door de bomen het bos niet meer maar je gaat onver- 
goten verder. De schakelkaart is geplaatst, het moden staat 
klaar, nu nog even 16K geheugen erbij en dan eens in al die 
databanken gluren. 

Alhoewel.....werkt dat ook niet met 1200 baud? Stel dat m'n Atom 
dat ook niet slikt. Wat zou er toch met dat ding aan de hand 
zijn? Ondertussen staan er aardig wat programma's op schijf, jam 
mer alleen dat een deel niet werkt. Zelf programma's schrijven 
gebeurt zelden, ík heb steeds het gevoel dat ik het wiel aan het 
uitvinden ben maar mijn wiel wordt wel vierkant! 

Alle gekheid op een stokje, er zijn ook wel leuke dingen aan de 
Atom. Neem nou de tekstverwerker, je weet wel ED64, is toch best 
een leuk ding! Zoveel eisen stel ik niet en het werkt prima, dit 
stukje is er ook op getypt. 

Alhoewel.....waarom print mijn printer niet als ik O P intoets? 
Waarom moet ik met Q uit de editor om hem opnieuw te starten? Wie 
het weet mag het zeggen! 

Vaak vraag ik mij af of er nog meer leden zijn met dit soort 
problemen, of misschien nog wel ergere (kan dat?). Kom laat ook 
eens iets van je horen, misschien is er nog hoop voor ons en onze 
Atom. 


Peter Voorloop 
Purmerend. 
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LOCK-TOETS INDIGATOR. 


Wat is een lock=-toets indicator? Een lock-toets indicator is 
een LED die aangeeft of de lock-toets is ingedrukt, en daardoor 
aangeeft of hoofdletters of kleine letters op het scherm 
verschijnen. In het bijgaande schema is de LED zodanig 
aangesloten, dat hij brandt bij HOOFDletters. 

Geinspireerd door een artikel in A.N. 7-5 blz, 71 van J. 
Swinkels, die deze functie software-matig had verwezelijkt, met 
als nadeel dat de systeemsoftware gewijzigd moet worden, heb ik 
een lock-toets indicator in elkaar geknutseld in hardware. 

Het principe is gelijk aan de werking van “Het achtste 
printerbit” van N. v. Rooyen in A.N. 7-1 biz. 5@. 

Adres #E7 moet uitgecodeerd worden en de data, die normaal in RAM 
geschreven wordt op adres #E7, moet in de uitgecodeerde flipflop 
gecopieerd worden met daaraan als indicatie een LED. 

In #€7 staat n.l. #90 als de lock-toets in HOOFDietter mode staat 
en bevat #68 in kleine letter mode. Omdat er of #00 of #68 staat 
is dat eenduidig en is dus een bit voldoende voor de indicatie, 
ik heb daar bit & voor genomen. Zie figuur. 

Het systeem werkt ook als niet de lock-toets wordt gebruikt, 


maar software-matig wordt omgeschakeld, bijv, met ED64 of 
Wordpac. 
Uitcodering: #E7 = 2208 grs rn @111 
T | 
blc@ IC7 
11 ICB | 

Data: #00 = 0000 2020 

#0 = Wiid D200 

bit 6 


Ik hoop dat een en ander duidelijk ís, anders vragen! 

De LED kan ergens in het toetsenbord naast de lock-toets 
gemonteerd worden. Ik heb de indicator al een half jaar in 
gebruik en werkt feilloos. (11ICB betekent pin 11 van ICB. 


Sjaak Geene, 
Zonneweide 6, 
5221 BH 's Bosch. 
Tel. @73-5:2000 





LOCK — INDICATOR 
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REDACTIONELE OPROEI ATOM NIEUWS FA, £/ 


OP ROE PP 


In onze Atom zit zoals jullie allemaal weten een 6522 VIA 
om allerlei zaken buiten de computer te besturen. Behalve de 
vier bekende registers voor de A an B poort bezit de VIA nog 
een aantal registers waarvan het gebruik voor heel veel leden 
onbekend is. 

De oproep is dus: wie weet bijna alles af van het 
programmeren van de VIA (dus besturing CAt, CA2, interrupts 
opwekken, gebruik shiftregister etc) en schrijft hierover een 
uitgebreid artikel 777 

Mocht dit niet uitkomen in verband met tijdgebrek (of zo), 
neem dan in ieder geval contact op met de redactie |1} 


Verder is er ook nog vraag naar een goed programma om printen 
mee te ontwerpen. 


1/0 blijft cok nog een raadsel voor veel leden. Dok hierover 
hadden we graag een duidelijk artikel waarin de basis wordt 
uitgelegd. 


Tot slot z?n digitaal->analoog omzetting en analoog->digitaal 
omzetting ook geliefd bij het publiek. 


Zoals u kunt lezen is de hardware nogal behoorlijk in trek. 
We zijn hier achter gekomen doer in de regio Limburg een 
enquete te houden. Zodoende hebben de Limburgers en de Belgen 
hun wensen bekend kunnen maken. Mocht u zelf nog wensen 
hebben, neem gerust even contact op met de redactie. 


Tot slot weer eens : om Atom Nieuws uit te kunnen brengen 
hebben we kopy nodig. U weet nu waarover u kunt schrijven dus 
aarze niet langer maar schrijf | ! 


De redactie van Atom Nieuws, 
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BRRKKNKKEKKKKKKKKKKKKAKAAKKKKKK KKK KKK 
* COMPUTERMAGAZINES GP RADIO EN TV X 
HERRAAAAKKKIKKKR IKK KRIEK KKK KERKEN 


Wat valt er zoal te beleven op radio en tv ? Vooral veel 
sport, films en actualiteiten. Nieuwe en ocude producten 
vliegen over ons tv-toestel. Maar als we naar een programma 
over computers willen kijken, kunnen we lang zoeken. 


Als we computerletters willen zien moeten we overschakelen 
naar NOS Teletekst. Daar vinden we op pagina 420 een 
bladzijde van Hobbyscoop. Hier treft u de listing aan van een 
basicode programma dat ze ooit eens hebben uitgezonden. 

Nog meer computer vinden we op de Astra Sateliet, namelijk op 
Super Channels Supertext. Super Channel stuurt ook 
Nederlandstalige teletext de ruimte in en op pagina 319 vindt 
u ook dagelijks enkele schermen computer informatie. 


Op de radio is het aanbod veel groter en Kunnen we zelfs met 
een gewone Electron of Atom computerprogramma’s inlezen die 
uitgezonden worden in Basicode. U begrijpt al dat ik het weer 
heb over Hobbyscoop. Iedere maandag en woendagavond komen 
rond 29 kByte aan informatie gratis de woonkamer in. 
Hobbyscoop verzorgt op maandagavond een half uur informatie 
over computers, de woensdag is eigenlijk meer iets voor 
zendamateurs en liefhebbers van ruimtevaart, Beide 
uitzendingen worden afgesloten met een beeldkrant. Deze 
krant kunt u m.b.v. Basicode 2 of 3 op uw monitor laten 
verschijnen. 

Woensdag is eigenlijk een feestdag want er is nog meer 
Basicode. De TROS zendt 15 minuten lang programma's uit in 
Basicode3. 

En er is nog meer: de NCRV doet ook mee! Op woensdagavond in 
het radioprogramma Bulletin. Hierin vooral informatie over de 
toestand in de wereld van de grotere computers (MS-DOS en 
UNIX systemen). Er wordt veelal een voorbeschouwing gegeven 
van softwarepakketten die op komst zijn, ervaringen met 
programma’s, virussen, databanken en veel meer. Toch wel een 
aanrader als u bij wil blijven op PC gebied. 

Tet slot is er nog ARCHIE op de zondagavond. Ik heb er nog 
niet naar geluisterd, het is volgens horen zeggen bestemd 
voor kinderen. 


Hieronder treft u een overzicht van de bovenstaande radio 
programmas: 


zondag radio Ì 19. 83u Archie CVPRO) kinderprog. 
maandag radio 5 21.090u Hobbyscoop (NOS) computer 
woensdag radio 5 17. 49u Basicode 3 CTROS) software 
woensdag radio 5 19. 83u Hobbyscoop (NOS) ruimtevaart 
woensdag radio 5 26. 30u Bulletin NCRV} pe info 


Mocht u nog programma’s weten op radio of tv m.b.t. computers 
geeft u dat dan s.v.p. even door aan een van de 
redactieleden? 





Gegroet beste mede-atomisten, 


dit is, zoals de titel al zegt, een verhaal met een staartje. 
Nadat u dít verhaal gelezen heeft zal er (hoop ik) weer een reden 
minder zijn om van een Atom over te stappen naar een PC. Het 
verhaal gaat namelijk over het volgende : 

Wat is een muis en hoe knoop ik hem aan mijn trouwe Atom ? 
Iedereen die een beetje met computers heeft gewerkt zal ongetwij- 
feld weten wat een muis is. Een muis is een besturingsorgaan dat 
de bewegingen, die met een muis gemaakt worden, omzet naar een 
beweging van een of ander pijltje op het beeldscherm. 

Het principe is dus vrij simpel, een willekeurige beweging in het 
platte (2-dimensionale) vlak wordt omgezet in elektrische 
pulsjes, welke door de computer omgezet worden naar een bewegend 
pijltje op het beeldscherm. Er zijn dus drie duidelijke functies 
te onderscheiden : 


1. Het omzetten van een willekeurige beweging naar 2 dimensies, 
de X- en de Y-richting (het mechanische gedeelte van de muis), 


2, Het omzetten van een X- en Y-richting naar elektrische 
pulsjes (het elektronische gedeelte van een muis), 


3. Het omzetten van elektrische pulsjes naar een bewegend pijl- 
tje op het scherm (de besturings-software ook wel muis-driver 
genaamd). 


HET MECHANISCHE GEDEELTE VAN EEN MUIS : 

Hoe wordt een willekeurige beweging omgezet naar een X- en Y- 
richting? 

In de muis zit een, met rubber bekleed, balletje. Dit balletje 
rolt heen en weer, wanneer de muis wordt verschoven. Het balletje 
ligt tegen 2 assen, welke loodrecht op elkaar gemonteerd zijn, 
Aan de andere zijde van het balletje bevindt zich een drukrollet- 
je welke ervoor zorgt dat de bal goed tegen de assen gedrukt 
wordt, zodat de assen meedraaien wanneer de muis beweegt. 

Deze assen registreren dus een X- en een Y-beweging. 


= Y-RICHTING 
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HET ELEKTRONISCHE GEDEELTE VAN EEN MUIS 


De willekeurige beweging wordt dus omgezet naar een draaiende X- 
en een draaiende Y-as. Aan het uiteinde van elke as zit een 
schijfje gemonteerd met gleufjes in de rand. Dit schijfje draait 
door een lichtsluisje (opto-coupler genaamd). De werking van zo'n 
lichtsluis is als volgt : 

Aan de ene zijde zit een lichtbron en aan de andere zijde zit een 
lichtgevoelig ontvangertje gemonteerd. Wanneer er dus een gleuf 
voor de lichtbron zit zal de ontvanger ook licht zien, waardoor 
hij gaat geleiden en er dus een stroompje gaat lopen. 

Wanneer de lichtbron tussen 2 gleuven inzit, zal de ontvanger dus 
geen licht zien en zal er geen stroom lopen. Samengevat zal dus, 
wanneer de muis wordt bewogen, het balletje gaan rollen, welke de 
assen laat draaien, welke de schijfjes laat draaien, waardoor er 
afwisselend wel of geen licht op de ontvanger valt, waardoor er 
wel of geen stroom loopt, waardoor er dus een pulstrein ontstaat. 
We kunnen aan de pulsjes zien ofdat de muis bewogen wordt en aan 
het aantal pulsje kunnen we zien hoever er in de X- of Y-richting 
wordt bewogen. We kunnen niet zien ofdat een schijfje nu linksom- 
danwel rechtsom draait. 

Om dit te kunnen zien moeten we een truukje toepassen en bij elk 
schijfje een tweede lichtsluis plaatsen. Deze tweede lichtsluis 
wordt nu zo geplaatst, dat wanneer de eerste lichtsluis in gelei- 
ding gaat, de tweede lichtsluis niet geleidt. De reden hiervan is 
dat er naar de tweede lichtsluis gekeken wordt wanneer de eerste 
lichtsluis in geleiding gaat. Dit betekent dat als de tweede 
lichtsluis op dat moment in geleiding is, de schijf rechtsom 
draait en als de tweede lichtsluis op dat moment niet in gelei- 
ding is, dan draait de schijf linksom. 

We kunnen nu dus zowel de richting als de grootte van de bewe- 
ging, in X- en Y-richting, bepalen aan de hand van de afgegeven 
pulsjes. 


tichtsluis 1 gaat in geleiding ------ i 
i 

i i i i i i 

i i i á 1 i 


LICHTSLUIS 1 =-- 








LICHTSLUIS 2 =n emeeen Ì ------ == 
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LINKSOM DRAAIEN VAN EEN AS : 


lichtsluis 1 gaat in geleiding ----—— 1 


LICHTSLUIS 1 


LICHTSLUIS 2 





RECHTSOM DRAAIEN VAN EEN AS : 


Dit is het principe waarmee de meeste muizen werken. 

Er zijn muizen die de pulsjes omzetten in bijv. RS232 formaat 
waardoor de muis aan een seriele poort gehangen kan worden (de 
meeste PC-muizen). Dit zijn de intelligente muizen. 

Wanneer de muis alleen maar de pulstreinen van de lichtsluizen 
uitstuurt bevat deze muis geen enkele intelligentie. Dit is nu 
precies de muis die we kunnen gebruiken, omdat de Atom intelli- 
gent genoeg is om deze pulstreinen verder te verwerken. Om deze 
soort muizen te kunnen gebruiken is er verder helemaal geen extra 
hardware nodig, waardoor we de muis rechtstreeks aan de Atom VIA 
kunnen knopen. 


Hoe knopen we de muis aan de Atom-VIA? 


Het aansluiten van de muis is zeer eenvoudig. We hebben de vol- 
gende signalen nodig : 


= F1, dit is drukknopl op de muis —> PBO 

- F2, dit is drukknop2 op de muis -> PB1 

- Xl, dit ís de eerste puls voor de X-richting -> PB2 
= X2, dit is de tweede puls voor de X-richting -> PB3 
= Yl, dit is de eerste puls voor de Y-richting -> PB4 
= Y2, dit is de tweede puls voor de Y-richting -> PB5 
-GND, dit is de massa 

=+5V, dit is 5 VOLT 


Ik heb de muis aan PL6 hangen, waarvan de bovenste rij naar de 
VIA gaat. Ik heb zelf een Commodore 1352 muis aangesloten en deze 
werkt perfect (niet duur £1l 25,= op de HCC dagen !!t!!). Ook heb 
ik een Tandy TRS-80 muis typenr.:26-1197 geprobeerd. Deze muis 
werkte in eerste instantie niet. De pulsjes bleken niet ver 
genoeg naar de massa te worden getrokken ‘en varieerden tussen de 
SV en de 3V. Aan elk van de pulslijnen heb ik toen een weerstand 
van IK naar de massa gesoldeerd, toen werkte ook deze muis prima. 
Wanneer we de muis aangesloten hebben zoals hierboven aangegeven 
is kunnen we qaan testen of de muis naar behoren werkt. 
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DE BESTURINGSSOFTWARE OF MUIS-DRIVER : 


De software is uiteraard in machinetaal geschreven, omdat basic 
te traag is. Als eerste zal ík laten zien hoe we kunnen testen of 
de muis naar behoren werkt. 


PROGRAMMA 1 : 


10 PROGRAM MUISTESTER 

20 DIM LL(10) 

30 FOR I=0 TO 10;LL(I)=P;N.;P.S21 
40 FOR I=1 TO 2 

50 P=-#2800 

6O[ 

7O:LLO LDAG13; JSR#FFF4 

80:LL1 LDX@8;LDA#B800; STA#CO 
90:LL2 LDA#CO;ASLA; STA#CO 

100 BCC LL3 

110 LDA@CH"1";JSR#FFF4; JMP LL4 
120:LL3 LDAGCH"O";JSRHFFF4 

130:LL4 DEX;BNE LL2 

140 JMP LLO 

150] 

160 N.:;P.S6 

170 LINK LLO 


Wat doet het programma 2 


Het programma kijkt welke data er op de B-poort van de VIA staat 
en zet deze op het scherm, bit 7 eerst. 


10-60 initialiseer labels en machinecodepointer 
70 zet de cursor aan het begin van een regel 

80 initialiseer x-register; lees B-poort VIA in 
90 kijk wat het hoogste bitje is 

100 indien hoogste bit=0 ga naar regel 120 

110 zet een "1" op het scherm en spring naar regel 130 
120 zet een "0" op het scherm 

130 herhaal de cyclus voor alle 8 de bitjes 

140 spring naar regel 70 

150-160 einde machinetaalroutine 

170 start testroutine 


We kunnen nu, wanneer we de muis langzaam bewegen, zien hoe de 
puisjes van de lichtsluisjes reageren. Bit O0 en bit 1 zijn voor 
de druktoetsen, bit 2 en bit 3 voor de X-richting en bit 4 en bit 
5 voor de Y-richting. 

Het volgende programma zorgt ervoor dat, afhankelijk van de 
beweging van de muis, de variabelen X,Y en Z worden aangepast en 
wel als volgt : 


Naar links bewegen => K=X-l 
Naar rechts bewegen => X=X+1 
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Naar boven bewegen => 


YaY+1 
Naar beneden bewegen -> Y=Y-1 
Geen toets ingedrukt -> Ze=0 
Toets 1 ingedrukt => Z=l 
Toets 2 ingedrukt => Ze2 

Z-3 


Toets 1+2 ingedrukt -—> 


PROGRAMMA 2 : 


10 PROGRAM INTERRUPT 
20 DIM LL20 
30 FOR I=0 TO 20;LL(I)=P;N. 


40 P.S21 
50 FOR I=l TO 2 
60 P=#2800 
70L 
80:LLO \ ZET IRQ VECTOR 
90 LDA@LL1$256;STA#204 
100 LDA@LL1/256;STA#205 
110 \ STEL DE VIA ZO IN DAT ER ELKE 256 MICROSEC 
120 \ EEN INTERRUPT WORDT GEGEVEN 
130 LDAC#CO; STA#B8OB ; STA#B8OE 
140 LDA@#OO; STA#B8304 
150 LDA@#O1 ; STA#B805 
160 CLI;RTS 
170 
180:LL1 \ BEGIN INTERRUPTROUTINE 
190 TXA; PHA; TYA; PHA 
200 \ ZET INTERRUPTTIMER OP 256 MICROSEC. 
210 LDAG#O1 ; STA#B805 
220 \ KIJK NAAR EERSTE X-PULS 
230 LDA#B800;AND@8;BEQ LL5 
240 \ TEST OP PULSWISSEL 
250 LDA#CO:BNE LL6 
260 \ KIJK NAAR TWEEDE X-PULS 
270 LDA#B800:ANDGE4;BNE LL2 
280 DEC#339; JMP LL3; \ X=X-1 
290:LL2 INC#339; \ X=X+1 
300:LL3 INC#CO; \ ZET X-PULSFLAG 
310 JMP LL6 
320:LL5 LDA#CO;BEQ LL6 
330 DEC#CO; \ X-PULS IS GEWISSELD 
340:LL6 \ KIJK NAAR EERSTE Y-PULS 
350 LDA#B800;AND@#20;BEQ LL9 
360 \ TEST OP PULSWISSEL 
370 LDA#CI;BNE LL1O 
380 \ KIJK NAAR TWEEDE Y-PULS 
390 LDA#B800;ANDG@#10;BNE LL7 
400 INC#33A;JMP LLS; \ Y=Y+1 
A10:LL7 DEC#33A; ; \ Y=Y-1 
4A20:LL8 INCHCI; \ ZET Y-PULSFLAG 
430 JMP LL1O 
A40:LL9 LDA#C1;BEQ LL1O 
450 DEC#C1 ; \ Y-PULS IS GEWISSELD 


460:LL10O \ LEES DRUKTOETSEN IN 
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470 LDA#B800; AND@3 ; EORG3; STA#33B 
A80:LL12 \ EINDE INTERRUPT ROUTINE 
490 PLA; TAY; PLA; TAX; PLA 

500 RTI 

5101 


520 N.;P.S6 
530 X=0;Y=0;Z=0; LINK LLO 
540 DOP.X,Y,Z$813;U.0 


De muis werkt nu onder interrupt, wat wil zeggen dat we nu een 
programma kunnen schrijven die gebruik maakt van de muis. 
Onderstaand programma is een voorbeeld van hoe we bv. een pijltje 
over het scherm bewegen. De interrupt-routine moet natuurlijk wel 
eenmaal opgestart zijn. 


PROGRAMMA 3 : 
10 PROGRAM MUIS-TOEPASSING 


20 BASE #58 
30 DEF PIJL,1111100000000000 


40 DEF : 1111000000000000 
50 DEF : 1111000000000000 
60 DEF : 1111100000000000 
70 DEF : 1001110000000000 
80 DEF : 0000111000000000 
90 DEF : 0000010000000000 
100 DEF : 0000000000000000 
110 CLEAR4 


120 X=128;Y-96;SET:PIJL,X,Y 
130 CARRY:PIJL,X,Y+GOTO 130 


Mocht het pijltje tegengesteld bewegen met de muis dan moeten we 
wanneer de X-richting niet goed is, de draadjes van de muis naar 
PB2 en PB3 verwisselen. Is de Y-richting verkeerd dan moeten we 
de draadjes naar PB4 en PBS verwisselen. 


TOEKOMST : 

De muis werkt bij mij al ca. 1 maand zonder problemen. Wat voor 
toepassingen er zijn laat ik verder over aan de creativiteit van 
de programmeur. Voorbeelden zijn : 


-— Puldown menu gestuurde programma's 
-— Tekenprogramma's 
= Enz., enz., enz. 


Veel succes met de muis en voor eventuele vragen of opmerkingen 
kun je bellen naar Kees van Oss 04104-74323. 
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KAKNKKAAKAKKKKKKKKKKKKKKAKKKKE 
* SPEECH EN ASSENBLER * 
KAAK KKAKKKKKKKKAEAE 


door Roland Leurs 


Voor gebruikers van de SPO256-AL2 op de Printerpoort begint de 
hoeveelheid software toch langzaam wat toe te nemen. Dit zijn vooral 
basicprogramma’s. Niet verwonderlijk, want het laten spreken vanuit 
een machinetaal programma vereist nogal wat werk. Vooral om uit te 
zoeken welke code bij een foneem hoort levert soms veel tijd in 
beslag. 


Ook dit probleem fs nu verholpen. In enkele ogenblikken is een heel 
gebed omgezet in codes voor het spraak Ííc. Het “onze vader” past nu 
binnen 1/4 k. 


Het principe is hetzelfde als dat van de assembler. Bij de assembler 
wordt steeds een instruktie ingelezen en als deze herkend wordt, wordt 
zijn opcode in bet geheugen weggeschreven. 

Het eerste programma bij dit artikel (FONCODE) doet hetzelfde. In een 
basic programma wordt gezocht naar SAY statements en alle fonemen 
achter dit statement worden automatisch opgeslagen. Echter van teder 
opgeslagen getal is bit 7 geset. Hierdoor raken 80 kolomssoften e.d. 
niet van de kaart als er een 816 o.i.d. naar ons kletsding wardt 
gestuurd. 


Het tweede programma (CODEFON) doet dienst als *disassembler / 
sourcemaker” of moet ik zeggen "disfonemer"” ? Als u dit Programma laat 
lopen kunt u zien welke fonemen er in het opgegeven geheugengebied 
staan, Ook kunt u van een bepaald stuk met fonemen weer een 
basicprogramnma laten maken met daarin de SAY statements. 


Veel meer mogelijkheden dus om ook in machinetaal Progranna's te 
kletsen. Laat dus ook nu weer iets van Je horen ! 


10 PROGRAM FONEEM CONVERSIE 


20 
30 PRINT $12"XXXt FONEEM CONVERSIE KX” 
40 PRINT * voor SPO256-AL2"*= 


50 PRINT "Dit programma zet alle fonemen uit een programma” ” 

60 PRINT "met SAY statements om in een dijst met foneemcodes, 7 
70 PRINT "Deze lijst kunt u dan vanuit een for/next lus” 

80 PRINT “laten uitspreken door de SP0256-AL2. Ook wordt het” 
90 PRINT "nu gemakkelijker om tabellen met zinnen te maken en”” 
100 PRINT "die vanuit een machinetaalprogramna te gebruiken. ””” 
110 PRINT “Bijvoorbeeld: SAY HHIAALLOV geeft deze rij getallen” 
120 PRINT "ergens in het geheugen: IB 18 2D 35.n"" 

130 PRINT "Druk op een toets om gegevens in te voeren “;LINK #FFES 


158 PRINT $12 
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158 
170 
189 
190 
200 
218 


INPUT "Waar staat het basicprogramna "B;IF B<#100 THEN B=BX#100 
INPUT "Waar moet de tabel komen "T ;H=T 


IF PB<>#OD THEN PRINT“"Error : geen basicpragrammâ"”;END 


B=Bt1;DIM S(255), FC5),KC5); BS=""; OZD 


220 R=PBAL5ÓHBP1,; B=Bt2 

230 $5=8B 

240 B=BtLEN S+1 

250 IF INSTR(SS,"SAY") THEN GOTO 280 

260 IF PBCO#FF THEN GOTO 220 

270 PRINT ““"Einde programma””;END 

280 X=-1 

290 DO 

300 H=Xt1 

810 UNTIL SPX=CH"S" AND SP(X+ID=CH"A" AND SP(KAAIEGH" YP 

320 X=X#3 

330 WHILE SPX=32 

340 X=X41 

350 WEND 

360 PE=SPK; FPISSP(XA1); FPR=HOD; X=X+2 

370 IF SPXO47 AND SPX<S56 THEN FP2=SPX;FP3=#0D; X=X41 

389 GOSUB 410 

390 IF SPX=#OD OR SPX=#3B THEN GOTO 220 

400 GOTO 350 

410 

420 RESTORE {CPE AND 223)-65) +500) 

430 DO READ 8K,C;UNTIL BK="XAK" OR SK=SF 

440 IF SK="kkX" THEN PRINT “"Error : onbekend foneem “SF” in regel 
IR“; END 

450 IF M=T THEN PRINT “&M*:" 

460 PRINT ” #;IF CC#10 THEN PRINT "0" 

465 PRINT &C 

470 PH=C+128; H=M41; ?M=0; IF H416=0 THEN T=M 

480 RETURN 

490 REM LIJST MET FONEEMCODE“S OP ALFABETISCHE VOLGORDE 

500 DATA "AF", 6, "AX", 15, "AD", 23, "AA", 24, "AE", 26, "Al, 32, "AR", 59, 
nk, O 

501 DATA "BB1”,28,"BB2", 63, "KAK", O 

502 DATA "CH",50, "XE", O 

508 DATA “DH1”,18,”DD1",21,”DD2”, 33, "DH2”, 54, "KKK", O 

504 DATA "EH", 7, "EY", 20, "ERI", 51, "ER2", SB, "EL", 62, "IHN, Ô 

505 DATA "EF", 40, "XX, O 

506 DATA "GG1", 36, "CG2", BL, "GAS, 34, "KKK, O 

5O7 DATA "HH1”,27, "HH2'!, 57, "XK", O 

508 DATA "IH", 12," IV", 19, "AAA", Ô 

509 DATA "JH", 10, "KAK", 0 

510 DATA "RRA", A1, "KEI", 42, "KES", B, "AKK", O 

S11 DATA ”LL”, 45, "KAK", O 

512 DATA "HH", 16, "KAA", O 

513 DATA “NNI”, 11, "NG", 44, "NN2”, 56, "AA, O 

514 DATA "OY", 5, "OW", 53, "OR", 58, "KKK", O 

515 DATA “PAI”, 0, "PAR", 1, "PAS", 2, "PAG", 3, "PAS", 4, "PP*, 9, "ARE, O 

S16 DATA "AAA, 


517 


DATA "RRI', 14, "RR2", 39, "AK, Ô 


FEECH EN BSSEMBLER R LEURS ATOM NIEUWS PAG. 37 


518 
519 
520 
sel 
522 
523 
524 
525 





DATA "SH", 37, "55", 55, "AR", O 

DATA "TT2", 13, "TTI", 17, "TH", 29, "KIK", O 
DATA "UWI”, 22, "UH", 30, "UW2", 31, "AAA", O 
DATA "VV", 35, "XK", O 


DATA ” 


"WW, 46, "WH", 48, "AKK, O 


DATA "XR", GP, "AARS, O 
DATA “YY2", 25, "YY1", 49, "YR", 60, "KAA", O 
DATA "ZH", 38, "28", 43, "XA, O 


Onderstaand programma zet de codes uit het geheugen om in leesbare 
fonemen: 


PROGRAM CODEFON 


DIM K(3), FCB), TC80);@=0; R=0; A=0 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


SLO" KKK CODE CONDVERSIE HAAT 

” voor SPO256-AL2"”= 

“Dit programm zet alle codes in het opgegeven geheugen" 
“gebied om in leesbare fonemen. U kunt het Programma "7 
“vergelijken net een disassembler. ”” 


109 PRINT “Het programma bevat twee opties, namelijk alleen 
bekijken" 
110 PRINT “of omzetten in een programm met SAY statements (dus 


ook” 
120 PRINT "nog een sourcemaker), *” 
130 PRINT "De inhoud van teder geheugenadres wordt zodanig bewerkt” 
140 PRINT "dat er altijd een bestaande foneem gelezen wordt, Er” 
150 PRINT "worden dus geen foutmeldingen gegeven, *”77 
160 PRINT "Druk op een toets om gegevens in te voeren ”;LINK #FFES 
170 
180 PRINT $12 
190 INPUT "Waar begint de tabel "B 
200 INPUT "Waar eindigt de tabel "E 
210 INPUT "Basteprogranma maken “SK 
220 IF PK=74 OR PK=106 THEN INPUT "Waar komt het basicprogramma ”S 
230 
240 FOR X=B TO E 
250 C=eCPX AND 63);GOSUB f 
260 NEXT X 
270 END 
260 
290 REM Subroutine om foneem af te drukken 
SOOLPRINT &X': “;IF C<#10 THEN PRINT “0” 
305 PRINT &C,” ” 
310 RESTORE (400+C) 
320 READ $F; PRINT SF” 
330 IF PK=74 OR PK=106 THEN GOSUB b 
349 RETURN 
390 REM Lijst met fonemen 
400 DATA “PA1” 
401 DATA ”PA2" 


402 


DATA ”PA3” 
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403 DATA "PAd*” 421 DATA “DD1" 439 DATA ”RR2” 
404 DATA “PAS” 422 DATA "UW1” 440 DATA "EF" 
405 DATA “OY” 423 DATA “AO” 441 DATA "EE2" 
406 DATA "AF" 424 DATA “AA” 442 DATA "KRI" 
407 DATA "EH" 425 DATA ”Yya” 443 DATA "22e 
408 DATA "KK3” 426 DATA "AE" 444 DATA "NG" 
409 DATA “PP” 427 DATA "HH1” 445 DATA “LL” 
410 DATA "JH" 428 DATA “BEI” 446 DATA vw 
411 DATA “NNI” 429 DATA "TH" 447 DATA "XR" 
412 DATA “IH” 430 DATA "UH" 448 DATA "WH" 
413 DATA *TT2” 431 DATA “"Uw2" 449 DATA ”YY1” 
414 DATA ”RRI" 482 DATA "AW 450 DATA "CH" 
415 DATA “AX” 433 DATA “DD2” 451 DATA "ERI" 
416 DATA HH” 484 DATA ”GG3" 452 DATA "ER2" 
417 DATA “TT1” 435 DATA “Vv” 453 DATA “OW” 
418 DATA ”DH1* 436 DATA ”GG1” 454 DATA “DH2" 
419 DATA ”IY” 437 DATA “SH” 455 DATA "SS" 
420 DATA “EY” 438 DATA "ZH" 456 DATA “NN2* 


457 DATA "HH2" 

458 DATA "OR" 

459 DATA "AR" 

460 DATA "YR" 

461 DATA "GGZ" 

462 DATA "EL" 

463 DATA “BB2” 

490 REM Deze subroutine maakt het basicprogramma 

SOÔbIF R=O THEN PS=#0D;R=10; SPI=R/256; S?P2=RA256; BCSH3)=" DIM AC255); 
SPEAK A”; S=St4+LENCS+3) ; ReR+10 

510 IF A=Ò THEN $T=" SAY " 

520 ST+LEN T=$F; A=At1 

530 IF A=10 THEN PS=R/256, SP1=R4256; S=St2; $S=ST; S=StI+LEN S;SPI=#FF; 
A=0; R=Rt10 

540 IF X=E THEN PS=R/256;SP1=R4256; S=St2; SS=ST; SSS+IALEN S; ReRt10; PS 
=R/256; SPI=R4256; $CS+2)=" END"; SP7=KFF 

550 RETURN 





Het gebruik van de programma is zeer eenvoudig. De programma”s geven 
zelf aan wat ingevoerd moet worden, Veel plezier en succes ermee ! 





SAY MMEHTT1 PA4 DD2EH PA4 VVRRIIYNNIDD2EHLLEYKKSEH PA4 
GGSRR2UW2TTIEHNNI PA4 VVAANNI PA4 RRIOWLLAANNITT2 
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Toolbox loader heeft de volgende configuratie nodig: 


— P-charm 

= Gags 

= Branquart (een andere schakelsoft kan ook maar dan moet even- 
tueel het commando ROM aangepast worden). 

= Diskdrive 

= Ram op #A000 

-= Schakelkaart 


Op de schijf bevinden zich de volgende programma's: 


— TBL1LDR Dit is de loader, oftewel het hoofdprogramma 
Opm.: In dit programma moet men afhankelijk van het 
aantal ROMS in het systeem de variabele M=6 
aanpassen. 

— TBL2LDR Dit is een iets andere versie, omdat in sommige boxen 
commando's voorkomen welk begin gelijk is bijv. 
INK en INKEY en CASE en CAS, 

= TBL,SCH Dít is een grafisch scherm. 

— TBL.DAT Dit is de karakter- en herkenningstabel. 

- Onder QUAL R staan de toolboxen. 


Met dit programma is het mogelijk om op een eenvoudige manier 
toolboxen van schijf in het geheugen te laden. U zult zeggen, dat 
is toch niet zo moeilijk, waarom dit programma? Op zich is het 
ook simpel, maar ik zal een paar voordelen van de Toolbox Loader 
geven. 


= Toolbox Loader herkent alleen maar toolboxen die onder qual R 
zijn weggeschreven. Wanneer er dus een toolbox bijgezet wordt 
onder qual R,‚ wordt hij dus meteen herkend. 


= Toolbox Loader zoekt zelf uit welke toolboxen er zich in uw 
systeem bevinden en geeft de naam van de toolbox aan. Wanneer 
Toolbox Loader een box tegenkomt die hij niet herkent, wordt 
om de naam gevraagd. Deze naam, met checksum, wordt verwerkt 
in de herkenningstabel welke meteen wordt weggeschreven op 
schijf zodat hij de volgende keer deze box wel herkent. 


- Toolbox Loader zoekt zelf uit op welke plaats in uw schakel- 
kaart RAM geplaatst is en geeft dit aan. Op deze plaatsen kan 
dus een toolbox worden geladen. 
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Wanneer het programma TBLILDR of TBL2LDR opgestart is worden de 
boxen die op de schijf staan op het scherm gezet. Daarna wordt 
van elke toolbox die in het systeem zit de checksum bepaald en de 
bijbehorende naam op het scherm gezet. Nu verschijnt er in het 
vak FILES een balk, welke als volgt te verschuiven is: 


z => naar links [ -> naar boven 
X -> naar rechts {/ -> naar beneden 
RETURN -> selecteer 


Wanneer een toolbox geselecteerd is verschijnt er een balk in het 
vak waar de namen van de ROMS staan. De besturing van de balk is 
hetzelfde. Selecteer nu de rambank waarin u de toolbox wilt 
laden. De toolbox wordt nu geladen. 


Tot slot nog een opmerking, er zijn toolboxen die niet goed met 
een schakelsoft samenwerken, bijv. de SREENROM. Het kan voorkomen 
dat het programma dan een foutmelding geeft. De oorzaak is dan de 
rom die net binnengeladen is. Hieraan is helaas niets te doen. 
Zie ook boven bij TBL2LDR. 


Ik hoop dat u veel gemak zult hebben van de TOOLBOX LOADER, ik 
vind het in ieder geval een hulpje bij het programmeren. 


Met vriendelijke groeten, Kees van Oss. 


TOOLBOXLOADER DRIVE 0 QUAL 


TBL,DAT TBL1LDR 
TBL2LDR TBL.SCH 
TBL. tex 

R: ACE-3.0 ASE-2.0 
COMBOX DBOX-V1 
DISATOM ED64-B 
ED80.v4 EDIBUG 
GAGS2.3 JBOX 
JOSBOX PCHARM 
SALF2.5 SCRROM7 
TELEC TOOLKIT 


WEBOX WORDPAC 


Mi 
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VRIJDAG 





door Roland Leurs 


Dit programma met een ietwat ongelukkige titel heb ík eens ooit 
gemaakt toen ik nag pas een Atom had. Ik heb het nooit laten 
publiceren en mu we toch nog kopy zoeken grijp ik de kans om het 
alsnog te doen. 


Het programma vraagt na RUN om een jaartal en meldt na kort 
rekenwerk in welke maand(en) van dat jaar de 13e op een vrijdag 
valt. 


Veel plezier ermee ! 


1ë PROGRAM VRIJDAG DE 13e 


zé ded 

4 PRINT “VRIJDAG — 13” 
0 INPUT “WELK TAAR *T 
69 HE=I/28 





PRINT" 

2ATHENPRINT” JANUARI, APRIL EN JULI“ 
IFA=250RA=20ORA=SOORA=LATHENPRINT" SEPTEMBER EN DECEMBER" 
IF A=260RG=IOORA=IEORA=ZOTHENPRINT "JUNI" 
IFA=270RA=1OORA=ZITHENPRINT"FEERUARI, MAART EN NOVEMBER” 
IFA=OORA=EORA=1TORA-2ITHENPRINT "MEI" 
IFA=lORA=PORA=ISTHENFRINT" JANUARI EN OKTOBER" 
IFA=20RA=130RA=12THENPRINTSAPRIL EN JULI*” 
TFA=4THENPRINT"MAART EN NOVEMBER!" 
1FA=EORA=LLORA=E2THENPRINT "AUGUSTUS" 7 
IFA=L2THENPRINT"OKTOBER" © 

IFA=1&THENPRINT"FEERUARI EN AUGUSTUS" " 

GOTO 40 









KARLEENK SAAKKKKERKER 
DIT PROGRAMMA BEREKENT IN 
3 WELKE MAAND VAN HET INGE: 
VOERDE JAAR EEN ONGELUKS 
DAG SURIJDAG 122 VOORKOMT 
EL SARASAKISSFLKKK 
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25 Uit De oude Doos 


verzameld door redactie Atom Nieuws 








In de oude doos zitten in deze aflevering enkele programma’s voor 
geluid. De resultaten zijn best verrassend, vooral omdat ze zo 
zalig kort zijn. Meteen intypen dus ! 


SIRENE 


Dit programma staat in Atom Nieuws jaargang 2 nummer 2. Na run 
wordt gevraagd naar een getal. Hoe hoger het getal, des te langer 
duurt een toon, en dus ook de herhbalingstijd. Echt ruig gaat het 
pas met een extra versterkertje en op 2 Mhz! 


19 DIM BBC4),P{-1);M=#BO02 

20 P#80=5; INPUT A;P#81=A;PRIRT $21 
30 

40:BBO LDA M;LDY #81 

50:BB1 LDX #80 

60:BBE2 DEX;BNE BB2;EORO4 

70 STA M;DEY;BNE BB1;DEC #80 

80 JMP BBO 

91 

100 PRINT $6;LINK BBO 


Ook leuk te gebruiken in uw eigen programma’s. 


VOGEL GEZANG 


In dat zeìfde nummer Atom Nieuws staat ook het programma 
IRQ-MUZIEK van Jan Wijnen. Daarmee laat Jan de Atom zingen als 
een kanarie (Twiedel twiedel twiet .……). 

Sluit de versterker maar aan op de cassettepoort en laat het 
programma maar fluiten, Overigens werkt het ook op de ingebouwde 
luidspreker. Levens echt, mijn twee vogels doen dit niet na (maar 
ja, wat verwacht je ook van twee dwergpapagaaien?). 


1® REM geluid uit recorder ?#28D4=4 

206 REM na break LINK#28A0 

30 REM toon uit ?#B80E=#40 

46 REM toon aan ?#B&CE=#C@ 

50 DIM LL1 

60 P.S21;F. I=OTO 1; P=#28A0; [ 

70: LLO LDAC#CA; STA#2OA; LDACH#28; STA#205 

80 LDAC#40; STA#B8OC; LDAC#C@; STA#B8OE 

9® LDAC10; STA#S27; STA#3AR: STA#BBEOA; STA#BEOS 


100 CLI;RTS;] P.$6,&P”,$21;L 

110:LL1 LDA#327; STA#B8@4; LDA#342; STA#B&O5 
120 LDA#BOO2; EOR@4 ; STA#BOO2; PLA; RTI 
130JN.;P.$6 

149 I=P(LLO+1)+P(LLO+6)X256; IF IC>LL1;P."KIJK NAAR REGEL 30"$7 
156 IF I<>LL1;P.$7; END 

169 LINK LL@ 

178 

180 REM DEMO vogels 

19% A=3O+R. 831; M=64+R. 4127; TER. &15 

200 F.I=0 TO T;F.F=A TO M;N.;N.;G. 198 


ORGELTJE 


Tot slot een programma uit Atom Nieuws nr 3.4. Het is geschreven 
door R, Gerritsen en gebruikt de via en Josbox of p-charme 
Belangrijk is dat een weerstandje zit tussen PB7 van de via en 
Pin 1 van de dinplug van de cassette aansluiting. Als u mjcos 
gebruikt(e) dan zit dat er al. Geluid komt alleen uit de 
cassettepoort | 


1® REM ORGELTJE 

20 REM R. GERRITSEN 

30 FDIM4ATT22;DIMLL3, U22, Q(-1) 
4® SU="QASEDRFGYHUJIKLP;@C) *” 
50 UP20=127 

60 P.$12821;F.N=OT. 1; P=Q; { 

7® LDA#322;BEQ LL2;LDX@21 

80: LL® CMPU,X; BEQLL1 

9® DEX; BPLLL®; LDX#8@; BPLLL1 
1@®:LL2;LDXE22 
110:LL1;STX#80; RTS 
1201;N.;P.$6 

13% ?#B8OE=#7E; 7AB8OB=#CO 

140 !'#B8@4=-1; P#BOO2=0 

150 FIN."TOONHOOGTE 1-20"%K 
160 FIN."VIBRATO-TEMPO @-20"%V 
170 FIN."VIRRATO-DIEPTE @-1"%0 
186 %E=1. 05946; %Q=233. 289369 
199 F.‚N=0T. 21 
200 LTIN=2000000/%Q 

210 AQ=AQKLE; N. ; ATT22=0; 1=0 
220 P.” Q E R Yuri P @ DEL”” 
230 P‚,” ASDEFGHJ KLE: {3 RET'” 
248 DO; AKK +40 

25% KEYA;LINK Q 





290 IFA=52; %K=%K/2 
300 !'#BEO6=UCKHTT PBO) /LK) 
318 I=I+1; IFI=%V; 120; %0=-%0 
328 U.@ 
Tot de volgende keer 
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CYLON-ATTACK NIEUWE STIJL. 





D.Protzman 


De oproep aan de leden , bij hen aanwezige, niet gepubliceerde 
programmatuur alsnog beschikbaar te stellen, was aanleiding dit 
spel=programna alsnog in te zenden. 


Het oorspronkelijke CYLON-spel is wat meer levensecht gemaakt 

door de sterrenhemel te laten bewegen afhankelijk van de besturing. 
Om de realiteit nog meer te benaderen, bewegen de grote sterren, 
doorgaans ook dichterbijstaand, sneller. 


Voorwaarde voor gebruik van dit Programma is wel een geheugen, 
groter dan #3CO@. 


De besturing vindt plaats volgens de oorspronkelijke opzet : 


TOETS EFFECT 
. klimmen 
lock duiken 
< links 
> rechts 
space vuren 


veel succes … tekst redactie, 


“DISK " voor GDOS. 





D.Protzman 


Als GDOS- alternatief van de eerder gepubliceerde utility wordt 
het bijgaande programma aangeboden. 
Zoals bekend kan daarmee op eenvoudige wijze : 

files worden gecopieerd, 

files worden "gesqueesd” 

gehele diks worden gecopieerd. 


De handleiding is in de programmatuur opgenomen. 
De basic-versie kan naar iedere gewenste plaats worden gezet. 


veel succes tekst redactie 
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ATOM (12 + 12} ‚datarecorder, monitor, voeding. 
Vraagprijs fl. 400,08 … 
Adres : R.H.B. Wind 

Eisenhowerstraat 34 

&155 AB Sittard,, teì 04498-28855. 


ATOM met combikaart ( 40 + 24 ), Big Benny, 88 kol.kaart{ nog 
te bouwen ), ATOM-drive en controller, kleurenkaart met kleuren- 
monitor-chassis (55 cm) 

Vraagprijs fl, 300.05 

Ádres : M.Graus tel B4496-52613. 


16K-Aquarius Ram-packs a f1.20.08 per stuk. 
Adres : Sj.Geene 

Zonneweide & 

5221 BH s‘Bosch tel. 0735-312080 


ATOM met combikaart en losse kleurenkaart, 
ATOM-diskdrive (met voeding), 

10 cassettes alsmede enkele disks met Atom-software 
Vraagprijs :fl.175. 02 

Adres : G.Verheyen, tel G4490- 51847 


Degene die wat wil doen met een {video)digitizer,kan zich 
eveneens wenden aan vorengenoemd adres. 


Tegen elk aannemelijk bod : 

Twee ATOM 's ‚ elk uitgerust met 64k RAM-kaart (zonder RAMmet jes) 
en een AXR-2 schakeïkaart, met volledige documentatie. 

Bovendien aangeboden een orginele ATOM-diskdrive, in redelijke 
conditie. 

Reacties aan Ton Otten , tel. @1715-1929 


Te koop : IC's : CMOS 61i6's (20 stuks ) en 

seriële driver-iC's ( die zo vaak kapot gaan,weet je wel Un 
1488 / 1489 , 357 paartjes. 

Tegen elk aannemelijk bod … 

Reacties aan Ton Otten , tel. @1715-1929 


GEPRAHAD : 


Wie oh wie kan mij helpen aan technische informatie over mijn 
defecte NEC-monitor , type JB-1201M(E). 
Reacties aan Ton Otten , tel. 01715-19259 


PAG. 44 ATOM NIEUWS ATOM MARKIL — FS 





ATOM-MARKT 


AANGEBODEN : 


1. ATOM (12 + 12) ‚datarecorder, monitor, voeding. 
Vraagprijs fl. 492,00 … 
Adres : R.H.B. Wind 
Eisenhowerstraat 34 
6135 AB Sittard., tel @4490-20553. 


2. ATOM met combikaart ( 48 + 24 ), Big Benny, B® kol,kaart{ nog 


te bouwen }, ATOM-drive en controller, kleurenkaart met kleuren 


monitor=chassis (53 cm) 
Vraagprijs f1l.508. 08 
Adres : M.Graus tel 94498-52615, 


3. 16K-Aquarius Ram-packs a f1.20.09 per stuk. 
Adres 7 Sj.Geene 
Zonneweide 6 
5221 BH s'Bosch tel. 0735-512050 


4. ATOM met combikaart en losse kieurenkaart, 
ATOM-diskdrive (met voeding), 
10 cassettes alsmede enkele disks met Atom-software 
Vraagprijs :fì.175.00 
Adres : G.Verheyen, tel U4498- 51847 


Degene die wat wilt doen met een (video)digitizer,kan zich 
eveneens wenden aan vorengenoemd adres. 


s PS Sanders Print Service 
Cassette interfaceprint 5.00 
MDCR interface print 5.00 
Battery backup printje 3.00 
BK hoge geheugenprintje 5.00 
#E0OO naar #1000 voor oude 
schakelkaart 3.00 
Omschakelprintje voor 
de 80K kaart 3.00 
Bootstrapprintje de Moor 6.00 
Voedingsprint MDCR 12V 5.00 
Acoustische verbindings- 
tester 5.50 
Combikaart 30.00 
Viaprint Z80 (Atombus) 15.00 
8e printerbit 7.00 


Al deze printen zijn ook gebouwd en getest te bestellen tegen 
kostprijs onderdelen en een symbolisch bedrag. Even bellen graag. 
(Tel. 04750-30401) 


Bestellen: op de clubavond te Sittard of door overmaking van het 
bedrag (+1,-- per print verpakkings- en verzendkosten) onder 
vermelding van de print(en) op gironr: 794739 tnv: E. Sanders, 
Rosslag 13 te Herten. 
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5.8.8, eLBUDeDHE 1999. 


copauor DRAAG EPOTAGGAR 





Na de zo succesvol verlopen ATOM-LAND-DAG najaar 1989, is de vraag 
naar herhaling van dit evenement allerwegen gehoord. Zelfs zijn er 
stemmen die vragen om twee maal per jaar | 

Uitwisselen van ervaringen,ideen toetsen,demonstreren van hard 

en software ‚maar ook contact op een breder vlak dan binnen de 
regio doorgaans gebruikelijk,is de doelstelling. 

We verwachten tenminste een 350-tal leden met apparatuur, 

en daarenboven nog een heel stel ‚zonder. 


Afspraken: * geen commerciele activiteiten; 
« ATOM-markt voor/door individuele leden; 
* geen opzich zelf staande vreemde computers ‚wel 
koppelings-demo's mogelijk; 
* clubwinkel is aanwezig; 
* niet bedoeld om alleen maar software te copieren; 
« deeiname met apparatuur tevoren via formulier 
opgeven aan Thijs Rutten ; 
* vervoersproblemen van apparatuur regionaal oplossen. 
* telefoon-aansluiting voor demo’s beschikbaar. 
DATUM z: 12 Mei ‚van ca. 10.909 tot ca.17.88 u. 
PLAATS : PAROCHIECENTRUM ‚Melkweg 5,DE BILT. 
Op de A27 de afslag Utrecht-Oost,maar let vooral op de kleine witte 
aanduiding =VEEMARKT=, de Biltse Rading afrijden tot de splitsing 
Groenekan/Bilthoven ‚hier r.a. ‚20 meter verder l.a. 
Voor busreizigers : Vanaf Utrecht CS lijn 5s7,stopt op de Melkweg. 


Breng brood mee, voor koffie wordt gezorgd. 
Nadere informatie : bij de regionale Contactadressen; 
alteen als het niet anders kan bij T.Rutten: 
adressen zie AN-omslag. 
1-Tip + Hang bij Uw demo een vel behang=papier ‚waarop met vilt- 
stift de voornaamste bijzonderheden zijn vermeld . 


2.Voorwaarde : Iedereen is zelf verantwoordelijk voor zijn eigen 
apparatuur etc. 


Het Bestuur van de Federatie. 






Wil men verzekerd zijn van een plaats voor zijn demo's ; dan 
afknippen en opzenden aan T.Rutten,Berkenlaan 24 3757RN Groenekan. 


Ondergetekende ………..ensseerseeenventeerenn tel...s.aenerrenreer 


Regio „.rsverseerereere. + is voornemens de ATOM-LAND-DAG op te 
luisteren met een demo van hard” of sotftware,te karakteriseren met: 








Handtekening. 
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Wilt u lid worden van de ATOM COMPUTER CLUB? 

Neem dan contact op met de penningmeester van de regio waar u 
bij ingedeeld wilt worden. Deze kan u inlichten omtrent het 
lidmaatschap. 


Regio TWENTE; 
G.J.Noorland Prinses Ireneweg 4 7433 DE Schalkhaar 
05700-25294 


Regio NOORD-HOLLAND; 
P. van Kuík Zuideinde 54-a 1843 JP Groot-Schermer 
02997-1902 


Regio DEN HAAG; 
Th.Waayer L.Couperusstraat 6 2274 XP Voorburg 
070-862504 


Regio ARNHEM; 
J,Hartog Keyenbergseweg 60 6871 WK Renkum 
08373-13757 


Regio ZEELAND; 
E.Gijssel Ruysdaelstraat 6 4462 AD Goes 
01100-32557 


Regio BRABANT-OOST; 
P.Ehrlig Roostenlaan 266 5644 BS Eindhoven 
0400-114183 


Regio LIMBURG; 
J.Colen Provincialeweg Z-27 6438 BA Oirsbeek 
04492-1957 


Regio BELGIE; 
Zie Regio Limburg 


Leden, die behoren tot opgeheven regio's, danwel regio's die 
conform de statuten geen lid meer zijn van de federatie, worden 
in verband met de financ. administratie en verzending van ATOM- 
NIEUWS, door de federatie toegewezen aan nabije regio's. 

Zo men tegen de regio van indeling, om welke reden dan ook, 
bezwaar heeft, kan men de regio van eigen keuze opgeven aan de 
penningmeester van de Federatie: T.Rutten, zie pag. 2 van dit 
blad. 


Bij het aangaan van het lidmaatschap kunt u de contributie over- 
maken op de rekening van de federatie.Vermeld hierbij uw volle- 
dige naam, adres en de regio waar u bij ingedeeld wilt worden. 


